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PREFACE 


This document has been prepared by the Product Development Group of McDonnell Douglas 
Aerospace • Huntsville (MDA-HSV) to document the mathematical model and numerical 
simulation of adsorption of H 2 O and CO 2 on 5A zeolite. The work was performed under the 
Molecular Sieve Bench Testing and Computer Modeling contract (NAS 8- 38250- 17) to ION 
Electronics. 
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SECTION 1 
INTRODUCTION 

Adsorption is a process involving the selective transfer of one or more solutes from fluid 
solutions onto and into solids. Physical adsorption is a surface phenomenon. When fluid is in 
contact with a solid surface, molecules in the fluid phase spontaneously concentrate on the 
surface without any chemical change. At low temperature, adsorption is usually caused by 
intermolecular forces, such as Van der waal forces (Ruthven, 1984). Adsorption phenomenon, 
like any other thermodynamic system which involves the interaction of two phases, is driven by 
chemical potential differences between the phases. This chemical potential determines the 
strength with which any given molecule is adsorbed. The differences in the surface energy of 
adsorbent and the properties of each kind of molecule cause differences in the amount adsorbed 
in certain kinds of surface, i.e., the selectivity. Separation can be accomplished through selective 
collection and concentration of fluid molecules onto a solid surface. 

Separation of gas mixtures by adsorption can be obtained by using either single column or multi- 
column configuration. However, for both processes the adsorbent column is alternately saturated 
and regenerated in a cyclic manner. 

One example of a cyclic selective process is the Four-Bed Molecule Sieve (4BMS) used in 
International Space Station Alpha for the removal of CO 2 as shown in Figure 1-1. 



As shown in Figure 1, the actual CO2 removal system consists of four beds. Two beds operate in 
the adsorption mode (a desiccant and CO2 sorbent bed) while the other set of identical beds 
desorb. The desiccant beds desorb through gas stripping while the sorbent beds are heated and 
subjected to a vacuum (e.g., the pressure and thermal swing process). Following the air flow path 
in Figure 1-1, cabin air laden with CO 2 and water enters at the system inlet, then enters desiccant 
bed (1), which consists of Silica Gel and 13X sorbent materials. The desiccant bed is required to 
remove virtually all water from the air stream. The dry air is next pulled through the air blower, 
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which overcomes the system pressure drop. A heat exchanger, the precooler, removes the heat of 
compression and heat of adsorption from the desiccant bed before the air enters the 5A sorbent 
which is responsible for removing the C02 from air. Following the precooler, the 5A bed (2), 
C02 removal bed, performs the primary system function of removing CO 2 . The other 5A bed (4) 
is concurrently desorbed with heat from embedded electrical heaters and allowed to vent to space 
vacuum . At the beginning of a new half cycle, the selector valves cycle to alternate the 
desorbing and adsorbing beds. Heated air from the hot, previously desorbing C02 sorbent bed, 
trips the downstr eam desiccant bed (3) of water, which is returned to the cabin in the return air 
stream. 

Because of the complexity of the process, the design of an efficient 4BMS CO 2 removal system 
mission depends on many mission parameters, such as, duration, crew size, cost of power, 
volume, fluid interface properties, etc. A need for space vehicle CO 2 removal system models 
capable of accurately p erform ing extrapolated hardware predictions is inevitable due to the 
change of the parameters which influences the CO 2 removal system capacity. 

The purpose of this study is to (a) investigate the mathematical techniques required for a model 
capable of accurate extrapolated performance predictions and (b) obtain test data required to 
estimate mass transfer coefficients and verify the computer model. Models have been developed 
to demonstrate that the finite difference technique can be successfully applied to sorbents and 
conditions used in spacecraft CO 2 removal systems. The non isothermal, axially dispersed, plug 
flow model with linear driving force for 5X and pore diffusion for Silica gel are then applied to 
test data. A more complex model, a non-darcian model (2-dimensional), has also been 
developed for s imulati on of the test data. This model takes into account the channeling effect on 
column breakthrough. 
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SECTION 2 

DEVELOPMENT AND ANALYSIS OF A MATHEMATICAL MODEL 

2.1 Gas/Solid Equilibrium 

Gas/solid equilibria is the thermodynamic limiting capacity for mass transfer in gas adsorption. It 
is one of the most important parameters for predicting solute separation from the bulk gas 
phase. Since the composition, temperature, and pressure change in a wide range with time and 
location within the adsorption column, a comprehensive gas/solid equilibrium model is needed. 

2.1.1 Single Component Isotherm 

The most popular single solute isotherms were correlated by Langmuir in 1918. The Langmuir 
approach assumed the rate of adsorption is equal to that of condensation. The final form of this 
equation is: 


„• = < V B i P ' 

' 1 + B,P, ' eq.il 

where Bi, and q m j are functions of temperature and heat of adsorption. Some of the single solute 
isotherms were correlated by the Langmuir-Freundlich equation (Sips, 1948): 

_* _ QmlBlP*' 

' l + B.P,- t eq. 2.2 

where n* is a constant close to one. 

The pure isotherm constants of CO 2 , H 2 O, and N 2 on 13X zeolite are as follows: 
for CO 2 , 

for T less or equal than 627.0 R 

q m COi = (399. 3942 - 1. 93842889T + 3. 25405x 10" 3 T 2 - 1. 82262x10"* T 3 ) / 44 / 100 
B COj = 35.35.358072159-.17016733T + 2.74587xl0~*T 2 - L48412xlO" 7 T 3 
n = -29. 386 1079+. 153889849T - 2.61225877xl0"'T 2 + 1. 478185x10"’ T 3 

for H 2 O, 

if partial pressure ofH 2 0 less or equal than .4 mm Hg 
forT < 564.0 R 

q = (39.914452 - 8.87103xl0" 2 T + 6. 839503x10"* T 2 ) / 100 / 18.0 

for T > 564.0 R 

q u „ = (873.44464 - 3.867835T + 5.80375xl0- 3 T 2 - 2.9346685x10"* T 3 ) / 100 / 18 
n = 1.0 
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for partial presuure of greater than .4 mm Hg 
q mHj o = (95. 0938247-.217257754T + 1. 4628603x10"" T z ) / 100 / 18 
B h ,o = 48.56664 - 2. 262024 xlO _1 T + 3.91017xl0" 4 T 2 - 2. 3790985 xlO" 7 T 3 
n = 1.0 
and for N 2 


for T less than 610 0 R 

B Nj = 4. 5597278759x10"’ exp(9628. 9655743 / T) 


q_ N =.00961197026- 1.637879912xl(PT 
- ’ N * else 

B Nj = 5.808906668xl0" 7 exp(991L 5734593 / T) 
where q is in lb mole of solute per lb of solid, T in Rankin, and P in mm Hg. 

2.L2 Multicomponent Isotherm 

Two types of multicomponent correlation were used in this study. One is based on the 
Langmuir- Freundlich equation for multicomponent system 


q ; = ■ rV 
1+ 2»/' , 


eq2.3 


and the more reliable method is based on Ideal Adsorption Solution Theory (IAST) of Myers and 
Prausnitz (1965). For pure-gas adsorption and assuming ideal gas behavior: 


*(pI)a 

RT 


■fw; 

J * p. 


eq 2.4 


where A is the surface area, 7t is the spreading pressure. The ideal solution assumption is applied 
to the adsorbed phase and the total amount adsorbed is then related to the mole fraction of each 
component: 


K-V/t 


eq2.5 


The Raoult law is also applied to the relation between mole fraction in the gas phase and 
adsorbed phase: 

p i = Py. = pI00X| 

, eq2.6 

where yi and Xj are mole fraction of the i-th component in the gas phase and in adsorbed phase, 
respectively, and 
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X x ' = Z- V i =1 


eq 2.7 


The 1ST theory assumes that the spreading pressure is the same for all the components in the 
mixture. 

The solution for the amount adsorbed in the solid phase in equilibrium with the gas phase 
concentration is obtained by an iterative procedure with the 1ST theory. For the case of the 
Langmuir-Freundlich single isotherm, from equations 2.2,2.4,2.6, and 2.7 one gets: 


r -l = 0 


V ) 


Py, 


i«i 


exp 


^ TtAn, ^ 


RTq 

B, 


-1 


ml J 


eq 2.8 


The derivation is shown in Appendix A. Knowing the total pressure and the solid temperature, a 
value of 7t is guessed and solution will be obtained by iteration until equation 2.8 is satisfied. 

2.2 Mathematical Model For Nonisothermal Multicomponent Adsorption In a Packed 
Bed 

Separation of solutes from the bulk gas can be accomplished in a packed column which is filled 
with a specific adsorbent that preferentially adsorbs certain constituents from the bulk gas. In the 
simplest case of packed column adsorbent particles, the following mass transport processes are 
considered: axial dispersion in the interparticle fluid phase, fluid to particle mass transfer, and a 
reversible adsorption in the interior of the particle. Also, adsorption is accompanied by the 
evolution of heat, and temperature changes affect the adsorption equilibrium relation and, in 
some cases, adsorption rate. Thus, especially in the gas phase adsorption, not only the effects of 
mass transfer on adsorption rate but also effects of heat generation and heat transfer in the 
adsorbent bed must be taken into account. 

The dynamic bed behavior can be modeled by heat and mass balance equations. The 
mathematical model will be used to estimate the breakthrough curve for a certain constituent in 
the bulk gas. In return, this enables one to obtain the necessary parameters for predicting the 
transient behavior of the temperature profile and concentration of the gas for different initial 
parameters such as inlet concentration, temperature, and the fluid velocity. 

The heat and mass balances could not be solved analytically; therefore, these equations were 
solved numerically by finite differences methods, namely the Under-Relaxation and Newman 
methods. A FORTRAN code was written to find the numerical solutions to the transient 
equations. 

In this study two types of mathematical models were used to predict the dynamic behavior of the 
bed. A one dimensional model was developed which takes into account only the mass and heat 
transfer rate of change in the axial direction of the bed. On the other hand, a two dimensional 
model would also estimate these rates in the radial direction of the bed, and therefore this model 
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was also developed. The mathematical derivation of a two dimensional model is shown in 
Appendix B. 

2.2.1 One Dimensional Adsorption Mathematical Model 

In a one dimensional adsorption model in a packed column any rates of change of variables in 
the radial direction are assumed to be negligible compared to the axial direction. Also, the 
porosity of the bed is considered to be constant from the center to the column wall . 

2.2.1.1 Mass Balance Equation 

In the bulk stream of the gas within the bed, the material balance for the adsorbate concentration 
is 


8C, n d*C 
dt ' dx 2 


dC, dq, 
-u— L — e- 1 


dx dt 
Boundary / Initial Condition 
at t < 0, C, = C, t# for 0 ^ x < L 


at t < 0, q, = q, , for 0 £ x £ L 
at t S 0, C, = C lt , for x = 0 
3C 

at t ^ 0, — = 0 for x = L 
dx 


eq 2.9 


where Qis the concentration of each component in the gas bulk, Di is the axial dispersion, u is 

the interstitial velocity, £ is the void fraction, and q, is the adsorbate concentration in the solid 
phase. The last boundary condition indicates a free stream boundary type. This boundary 
condition is prescribed for situation where the normal derivative of flux, the gradient of 
concentration or temperature, at the end of the packed column vanishes. In a numerical sense, 
the value of the last grid outside the packed bed is set equal to that of last grid of the packed bed. 


2.2.1.2 Total Material Balance 


Assuming the ideal gas law C, = and knowing y, = 1, the above equation can be 

recast into an overall mass balance equation. 


^ = -P— +— f— -D,^+ U — V RT — i— 

dt dx 2 dx dx T f dt dx 2 dxj £^dt eq2 10 

This equation was used to compute the pressure drop along the axial direction in the bed. 

2.2.13 Gas Phase Energy Equation 

The change of gas temperature with respect to time is the result of heat flux from the solid to the 
gas plus convection of heat due to the fluid flow, as shown by the following equation: 


6 



September 1995 


MDC 95W5104 


3T. 


a*T. 


p ‘ c " *" =k ' l?- up ‘ c " 


2L 

8x 


1 — p 4h 

— M. (T. - T, ) — 2=- (T. - T w ) 
e ed w 


Boundary / Initial Conditions 
at t < 0, T g = T f # for 0 < x < L 
at t > 0, T, = T, for x = 0 
8T, 

at t > 0, — - 1 - = Ofor x = L 
ox 


eq 2. 1 1 


where T g is bulk gas temperature, T w is the wall temperature, T s is the solid temperature, p g is 
bulk density, c K is the specific heat of the bulk gas , kf is the effective conductivity of the bulk 
gas, h, is the heat transfer coefficient between the solid and the gas phase (Petrovic and Thodos, 
1968), and h^ is the heat transfer coefficient between the wall and the gas phase. 

2.2.1.4 Solid Phase Energy Equation 

The following energy equation for the solid phase includes the term for heat flux from the solid 
phase to the gas phase plus heat generation due to adsorption. 


P.Cp. 




Boundary / Initial Conditions 
at t < 0, T, = T 1# for 0 < x £ L 
at t > 0, T, = T, for x = 0 


at t > 0, — *■ = 0 for x = L 
ox 


2.2.1.5 Column Wall Energy Equation 
The wall temperature T w is given by 


PwCpw if = 27tR,h - (T ‘ " T ->- 2jcR ‘ h ^ T * * T *> 

Initial Condition 
at t < 0, T W = T W> . 


eq 2.12 


eq 2.13 


where T e is the surrounding temperature, h w and h 0 are the heat transfer coefficients between the 
wall and fluid and between the wall and the surrounding, respectively. Axial conductivity in the 
canister wall is neglected since the area of heat transfer from the fluid to wall and from the wall 
to fluid is an order of magnitude larger than the area in the axial direction. This is analogous to 
heat conduction in a slab. 
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2.2.1.6 Momentum Equation 

Bulk resistance to the fluid flow through a solid matrix, as compared to the resistance at and near 
the surfaces confining the solid matrix, was measured by Darcy (1956). The following equation 
characterizes the pressure drop in a packed column: 

_dP _ jx u 

dx K eq 2.14 


where K is the permeability of the solid and p. is the fluid viscosity. This empirical slug-flow 
equation, which is suitable for slip flow and creeping flow, is valid when the Reynolds number, 
based on particle diameter, is close to one. 

For higher Reynolds number, cross flow within the porous media creates additional pressure 
drop. For this regime the Ergun equation could be used to estimate the pressure drop, see Ergun 
(1952) and Beavers (1969): 


dP p _ 2 
— = -— u-pCu 
dx K 


eq 2.15 


where C is the inertial coefficient. 

The Darcian terms contain the empirical coefficients K and C, which are given by relations 
developed by Ergun (1952) for flow in a packed bed: 


K -E T 


150(1 - e) ^ 

eq 2.16 

and 


c 1.75(1 -e) 


d . £j . 

eq 2.17 

where d p is particle diameter. 



Equations 2.10 and 2.15 are used to compute the total pressure and the velocity respectively in 
the axial direction. This was found to give better convergence than using them in the reverse 
order. 


2.22 Solid Phase T ransport Equation 

Mass tr ansf er of solute from bulk gas to sorbed state is driven by equilibrium isotherms. The 
mass balance equation inside the sorbent material depends on the structure of the pellet. 
Monodisperse pore-diffusion and bidisperse pore-diffusion are the two models used to predict 
the mass transport within the pellet. The schematics for die two types of sorbents are illustrated 
in Figures 2-1 and 2-2. In general, the mass transfer mechanism of an adsorption process 
includes four steps: fluid-film transfer, pore diffusion, surface adhesion, and surface diffusion. 
Since the surface adhesion rate approximates the order of the collision frequency of the gas on 
the solid surface, which is much greater than for the transport processes, equilibrium is assumed 
to be reached instantaneously at the interfaces (Y ang, 1987). Adsorbates initially transfer from 
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the bulk gas stream through an external film around the particles and reach the external surface 
of the particles. Molecules of adsorbate then diffuse into the pores of the particles, are adsorbed 
on the active sites, and then diffuse along the surface. The film transfer and pore diffusion are 
treated as sequential steps, since no accumulation of adsorbates are allowed; in other words, 
conservation of mass applies. However, pore and surface diffusion generally take place in 
parallel. Any combination of the resulting three steps can constitute the rate-controlling 
mechanism. The external mass transfer rate is defined in terms of an effective transfer coefficient 
(kfj) as a linear driving force equation. 



FIGURE 2- 1 INTRAPARTICLE MECHANISM OF DIFFUSION FOR MONODISPERSE 

SORBENT 



FIGURE 2-2 INTRAPARTICLE MECHANISMS OF BIDISPERSE-PORE SORBENT 
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N„ = -k n (C M -C_ J ) 

eq 2.18 

For the low Reynolds number region covered in the present study, the correlation of Petrovic and 
Thodos (1968) is used: 


e ZK p 


eq2.19 


for 3 < < 2000. Nr c is the Reynolds number and Ns c is Schmidt number. 

Molecular diffusion of a component in a mixture is described by the Stefan-Maxwell equation. 
For single component diffusion in a mixture, however, the diffusion coefficient Dmi is 
approximately related to the binary coefficients by the following relationship (Bird et al., 1960) 


Y 2 l eq 2.20 

" n 
j*i u i.j 


For binary mixtures at low pressure, Dy can be estimated by the following equation, (Slattery 
and Bird, 1958): 


D 


AB = 



For nonpolar gaspairs: 
a = 2.745x10“* 


b = 1.823 


For H 2 0 with a nonpolar gas: 
a = 3. 640x10“* 
b = 2.334 


eq 2.21 


The Knudsen diffusion coefficient can be estimated by the following equation (Satterfield, 


1980): 

D u = 4.67x10-* 

x, M, i 

where r c is the mean diameter of the pore 
approximately between 1-4 (Satterfield, 1980). 

The surface diffusion is an activated process 
expression (Smith, 1981): 


eq 2.22 

size and x p the pore tortuosity factor and is 
which can be expressed by an Arrhenius-type 
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D - = D i0l exp(-^) 

RT , eq 2.23 

where Esi is the activation energy for the surface diffusion and is pre-exponential factor. 
2.23 Monodisperse Pore Diffusion Model 

The pore structure of pellets are simulated by this model are monodisperse. Sorbents in this 
category include activated carbon, alumina, and silica gel. The mass balance for component i 
inside the pores of a spherical particle at the axial location x in the bed yield: 


dC te 1 3<r. a NJ dq, 

cc— — — +-^ = 0 


dt 


dr. 


dt 


eq 2.24 


where a is the intraparticle void fraction, Njr is the flux of component i, r p is particle radius, and 
qj is the amount adsorbed on the solid phase. 

Equation 2.24 can be simplified by employing the following particle volume-averaged quantities: 




and 




eq 2.25 


eq 2.26 


By integrating equation 2.24 with respect to r p , using the volume averaged quantities and noting 
that Nir=0 at r=0, the result is 


a 


+ — NT +^- = 0 


dt 


dt 


eq 2.27 


To further simplify the model, parabolic concentration profile within the particle is assumed 
(Tsai, 1983), thus 


C|» = E, + F,r 2 


where the constant E and F can be evaluated by using the surface conditions: 


eq 2.28 


c ip = C* at r = R p 


and 


eq 2.29 


E.=q,-F,R; 

, eq 2.30 

where C^, is the concentration of i at the surface. By integrating equation 2.28 and using volume 
averaged quantity: 
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f,=(c;-c^) 


2r; 


eq 2.31 


Therefore, by inserting eq 2.31 and 2.30 into eq 2.28 and taking the derivative with respect to r at 
the surface of particle: 


r)C 

(-^)^=(C;-C,p)5/R p 

or eq 2.32 

The flux Nir is the combined pore and solid diffusions. Pore diffusion is dominated by Knudsen 
diffusion with a constant diffusivity, Dik- Surface diffusion Ds obeys Fick's law. Thus, 


N 



ac » D dq , 

dr “ dr 


eq 2.33 


A local eq uili brium can be assumed between the gas phase in the pore and the solid phase. Since 
the adsorbate concentrations are dilute, the solid phase concentration of each adsorbate may be 
assumed to be independent of the gas phase concentration of the other adsorbate. Therefore, the 
total flux of the i^ 1 component at the pore mouth of the particle is 


ac. 


n 


n.-d^U.-d.X^Ur, i = 

J w 

Assuming gas-solid equilibrium within the pellet , 


eq 2.34 


_ • 
dq. _ dq. 

ac„ ac„ eq 2.35 

The time derivative of q i , is a function of T, and gas concentration in pore side of the pellet, Cpj, 


dt 3T 3l jgdC, dt eq 2.36 

Equations 2.32-2.36 are substituted into equation 2.27, to obtain the final rate equation for 
monodisperse pellet is 


(e+ iSL,^=ip. 

a c. 94 R > 


il? L(c «- e " )+ ^ L<c - _e - ) 

J ^pj K P 


aq, y aq, aCpj 
3T. &9C* 94 


eq2.37 
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2.2.4 Bidisperse Pore DifTusion Model for Zeolite 

Zeolite sorbents consist of crystals, in the size range of 1-9 ^im, which are pelletized with a small 
amount of binder. Diffusion rate is controlled by the crystals in the zeolite sorbents. The mass 
balance within a spherical crystal is described as 


frli _ p . g (r 2 dQi ^ 
dt r 2 dr dr ’ 

The rate of change of q,, the volume average q, is 


eq 2.38 



3 rdq, 
R 3 P J dt 


» 2 dr 


which results in 

dq, _ 3D t f dq, 

dt " R„ dr„ 

P P 

As before, assuming a parabolic distribution 
Q i = E| + F,r p 2 


and 

q, = qf at r p = R p 

» 

using surface condition 
E, = q;-F,RJ 

by integrating equation 2.41 and using the volume average 
5 


F, = (q;-q,)- 2 


2R. 


obtain 


< ^ L U,=(q;-q, ) 5 /R P 

and from equation 4.45 and 2.40, 

(^) = 15D./R,, I (q;-q l ) 


eq 2.39 

eq 2.40 
eq 2.41 
eq 2.42 
eq 2.43 

eq2.44 

eq 2.45 

eq. 2.46 


Assuming the mass transfer resistance between the bulk flow of the bed and the solid is not the 

limiting resistance of gas diffusion into the solid, qf can be replaced by q, which is in 
equilibrium with the bulk flow concentration. Thus, 


^■ = 15D./R > : ( q ;-q- 1 ) 


eq 2.47 
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This equation is what Glueckauf (1955) suggested. Eq 4.47 is the basis for the Linear Driving 
Force approximation model. 





eq 2.48 


where k«f ma y be obtained by experimental procedure and a s is the interfacial surface area. 

2.2.5 Two Dimensional Adsorption Mathematical Model 

For a packed bed the porosity varies with distance from the wall. Near the wall the porosity is 
higher than the bulk of the bed. This increases the permeability. A few particles away from the 
wall, the porosity equals the free stream value (Benenati, 1962; Roblee, 1958). As a 
consequence of the porosity increase in the vicinity of the wall, the velocity of the flow parallel 
to the wall increases as the wall is approached and goes through a maximum before it decreases 
to zero (to satisfy the no-slip condition). In general this leads to a net increase in flux, i.e., to the 
phenomenon called channeling (Nield and Bejan, 1992). During the experimental portion of this 
study (see Sect. 4.3.1), the effect of channeling was found to be significant for the intended final 
application of this model. As a result, the effect on momentum, energy, and material balances 
was considered to be important enough to require the development of a two-dimensional packed 
bed model. 


2.2 .5.1 Mass Equation 

ac L _ yc, a(uc,) 

at 3*‘ 3x •"'•'rdr dr 

Boundary / Initial Conditions 
for t < 0 C, = C lf , for 0 < x £ L and 0 £ r £ R 
for t £ 0 C, = C UlI# at x = 0 and 0 £ r £ R 
fiC 

for 1 1 0 — - = 0 at x = L and 0 £ r £ R 
ox 

for 1 2 0 rr 1 * = 0 at r = 0 and r = R 
dr 


(1-e). 


eq 2.49 
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2J.S.2 Gas Phase Energy Equation 

P c = k, . ^ - — M.cr. - T. ) 

pg f.x fai fa r 9r 3r e 

Boundary / Initial Conditions 
at t < 0, T g = T gi# for 0 £ x £ L and 0 £ r £ R 
at t £ 0, T g = T, tl for x = 0 and 0£r<R 
3T 

at t > 0, — - = 0 for x = L and 0 <, r < R 

ox 

3T 

at t > 0, — - = 0atr = 0for0<x£L 
dr 

at t > 0, k f r ^ t = h w (T w -T g )at r = Rfor0<x<L 
or 


2.2.5 .3 Solid Phase Energy Equation 

,C_ ^ = k..?^ + — 


eq 2.50 


eq 2.51 


Boundry / Initial Condition 

at t < 0, T, = T, , for 0 < x < L and 0 £ r < R 

at t > 0, T, = T m for x = 0 and 0 £ r < R 

at t £ 0, = 0 for x = L and 0 £ r < R 

dx 

rfT 

at t > 0, — - = 0 at r = 0 and r = Rfor0£x£L 
dr 

dq, 


Rate of adsorption, , can be substituted in the above equation either by 2.36 or 2.41. It 

depends on the adsorbent material. If it is monodisperse or bidisperse type of pellet equation 
2.36 or 2.41 will be used, respectively. 

2^5.4 Column Wall Energy Equation 

PwCpw ^ = 2jtR,h w (T g -TJ- 27cR 0 h 0 (T„ - T 0 ) 
ot 

Initial Condition 

eq 2.52 

at t < 0, T w =T W # 
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2.2.5.5 Bed Energy Equation Based On Effective Conductivity 


9T 


d 1 ! , k^ r a ,r0T, 


3T 


( e p ( c K + (l-E) Pl c,)^ = ek^^ +E ^~(^)-Eu Pl c M - 


dx 3 


r dr dr 


dx 


+ (l-e)XAH,^i 
1-1 

Boundary / Initial Condition 
at t < 0, T = T, for 0 £ x £ L and 0 £ r £ R 
at t £ 0, T = T #>1 for x s 0 and 0 <, r <, R 
9T 

at t k 0, — = 0 for x = L and 0 £ r £ R 
ox 

3T 

at t £ 0, — = 0atr=0for0<x^L 
dr 

at 1 2> 0, = h w (T w - 1U R ) for r = R 


eq 2.53 


Z23.6 


Momentum Equation 


The governing momentum equation for fully developed flow in cylindrical beds is, from V afai 
and Tien (1982). 


dP 


.2 i* 


^ = - P ,Cu 2 -^u + -^(r^), 
dx * K r e dr dr 

Boundary Conditions 
K„ dP 


eq 2.54 


u = 


m dx 


at r = 0 and u = 0 at r = R, 


where e is the bed porosity, and K and C are the permeability and inertial coefficient which 
depend on the porosity and the type of porous materials. In the above equation, the second term 
is the inertial effect which accounts for additional pressure drop resulting from interpore mixing 
found at higher Reynolds numbers (Vafai, 1981; Ergun, 1952). The third term is the Darcian 
force representing the pressure loss due to the presence of solid particles. The last term is the 
viscous shear force representing the resistance to the flow caused by sheer stress along the solid 
boundary. This term accounts for the no-slip boundary condition at the solid boundary. In this 
study the entrance effect is not considered since the flow is fully developed after one to two 
particle distance from the entrance (Vafai and Tien, 1981). 

2.2.6 Porosity Variation 


e = e_[l + a exp(-by /d p )] 


eq 2.55 


where Eoo is the free-stream porosity, y is the distance from the wall, d is the particle diameter, 
and a is taken to be 1.4 (Nield and Bejan, 1992). b is an experimental parameter that depends on 
packing and particle size and it varies from 2 to 8. 
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The empirical coefficients K and C are given by the relations developed by Ergun (1952) for 
flow in a packed bed: 


K = 


150(1 -e) 2 


eq 2.56 


c 1.75(1 -e) 

V 3 


eq 2.57 


The variables C and K are both functions of the bed porosity and particle diameter, d p . The 
porosity in a packed bed increases from the center of bed, ffee-stream porosity, to a maximum of 
one at the bed-wall boundary . This increase is confined to a few particle diameters from the wall 
(Benenati, 1962; Roblee, 1958). 


In the above two dimensional equations, the term which represents the radial diffusion is 
1 d f rac^i 

r drl, 8r J eq 2.58 
where C varies with r. Carrying out the derivative 


IdC d 2 C 
r dr + dr 2 


eq 2.59 


At the center where r=0, the first term is not finite. But 
.. ,'fldC) d 2 C 

Wnrry eq ? .6o 

by UHospital’s rule. Therefore the term, eq 2.58, in 2-dimensional form for the center point is 
replaced by 

i a fratn 2 3 *c 

rdr^ dr J dr 2 eq2.61 

Therefore, the diffusional term in the discretized forms of two dimensional PDFs at center grid 
is replaced by eq 2.61. 


2.2.7 Calculation Of Thermal Conductivity For 2-D Flow 

In this study two dif ferent equations were used to calculate the effective conductivity in the 
packed bed. One is based on the works of Kunii and Smith (1960), and the other one is based on 
the experimental work of Fahien (1954). 

The effective thermal conductivity in the axial and radial direction, k e ff - xk c g',j, are related as, 
k-r,, = k. + k, fI 

k*f, r = k. + k f r eq 2.62 

These conductivity's can be calculated by the theoretical equations presented below. 


2 .2.7.1 Stagnant Conductivity k 0 

Kunii and Smith (1960) presented theoretical equations for estimating the stagnant conductivity, 
Iq,. The stagnant conductivity can be found if k s , solid thermal conductivity, is given . 
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^- = E + (l-E)/[(J>+(2/3)(k f /k f )] 

k, eq 2.63 

where kf is the thermal conductivity of fluid and <f> is the contribution of solid to solid heat 
transfer through fluid film around a contacting point of neighboring particles. <f> is given by 


<j) = <()j + (<(>! — )[(e — . 26)/ .216] 
for .476 *e 2 l26 

for e>. 476 eq2.64 

for e <.26 

where 0 i and 4> 2 are given in a schematic form, and are being interpolated linearly in tabular 
form in the computer program. 

2.1.1J2 Effective Radial Conductivity kf,r 

Packed bed thermal conductivity in the radial direction is given by Baron (1952) as 
C.P r u/k,„ = N^=8-10 

eq2.65 

where N h is Peclet number, therefore the effective thermal conductivity in the radial direction 
would be (Yagi and Kunii, 1952). 

^!i-t +(o p, N N* 
kf k f 

where (ap) = 1 / N Pt|i =.l to .125 ^ 2-66 

2.2.7 3 Effective Axial Conductivity keff^x 

A similar equation can be derived for effective thermal conductivity in the axial direction, (Y agi, 
Kunii, and Wakao, 1960). 



k. 






where X =.5 to L0 


eq 2.67 


In the above equations, the radial and axial conductivity are the combination of two terms. The 
first term is the stagnation conductivity, which varies from a bulk conductivity to fluid 
conductivity with distance from the center to the column wall. Therefore, it depends on the 
porosity variation which also is a function of bed parameters. The second term is due to the 
dynamic or dispersion conductivity which incorporates the mixing caused by flow through the 
particles. Incorporating the effects of porosity variation into the effective conductivity, the 
effective conductivity reduces to (Hunt, 1987) 
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— = (1 + a- exp(-bR))^ + (aJJ^lVN* 
k f k f d 

where faP)= l/N Pt|j =.l to .15 eq2.68 

and in the axial direction 

= (1 + a- exp(-bR))-^- + N 

k r k f d 

where X =.5 to 1.0 e£ ^ ^ 


where a ' is chosen such that ko/kf equals one at the wall as velocity becomes zero. The variation 
of dispersion, mixing length, is 

^ = R,/R t -r/R t forR,-r <1 

d . eq 2.70 




where R t is tube diameter. An expression similar to porosity variation was used to predict the 
mixing length variation (Hunt, 1987). 

2.2.8 Calculation Of Mass Diffusivity For 2-D Flow 

A similar theoretical approach can be taken for the calculation of mass diffusivity in the radial 
and axial direction as that used for thermal diffusivity in the previous section. 

2.2.8.1 Effective Diffusivity 

Effective diffusivity follows the same expression as in thermal conductivity: 

D-r,r = D. + D f , r eq 2.71 


2.2JL2 Effective Radial Diffusivity Dfj 

The effective diffusivity in the radial direction by analogy to heat transfer is: 


D 


tfT,r 


D. 


+ ( a P)N RtF N sc , 
where (a|3) = 1 / N p , b =.l to .125. 

2J2J&3 Effective Axial diffusivity D e rr,x 

A similar equation can be derived for effective diffusivity in the axial direction; 

^^- = — +?lN r , N sc , 

D f D r Rv sc 

where X =.5 to 1.0. 


eq 2.72 


eq 2.73 
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Incorporating the effects of porosity variation into the effective diffusivity, the effective 
diffusivity reduces to (Hunt, 1987), 


^• = (l + a'«p(-bR))2i + (oP)H5>N I1 , r N & , 

where (a|5) = 1 / N Nh =.l to .125. 
and in the axial direction, 

= (1 + a- exp(-bR))~-+ N fc , 

where X =.5 to LO. 


2.2.9 Effective Radial Thermal Conductivity Based on Fahien Equations 

In contrast to weak effect of mass diffusion on radial mass fraction, the thermal conductivity 
profile has a strong effect on both temperature and mass adsorption. A thermal conductivity 
profile for different ratio of dp/d t was approximated by Fahien (1954), 


k„,, =< k > (k; + 3(k^ - k; )i- + 2(k; - 0 s r i r M 

r M *M 

k«ir,r =< h > (k M — (k M ” ^w) | M r>r M 

A ■ u 


‘M 

r 3 - lr 2 + 2 

3.0-.9k*r M l - ^ ^ 




1-r 


l + r M +.lr M 2 


24. 


eq 2.76 



a = d t / d p 


eq 2.77 


where k* is the effective radial conductivity at the center of the column wall, k^ is the 

maximum effective thermal conductivity, k^ is the effective thermal conductivity near the wall, 

< k > is the average effective thermal conductivity, and tm is the location of maximum in 
conductivity profile. These conductivity's are obtained by Aigo and Smith (1953) equation using 
the void fraction values as a function of radial position. According to Argo and Smith 


I - =e k . + ^r^- + 4 (i ^) d - (# - ,73) ( T >' ' 1#0< ) + < 1 - £ > 


KM, 

2k. + hd. 


eq 2.78 


where a is the emissivity of the solid particle, T, j s the average temperature. In the above 
equation. 


h = h e + h r + h p 


eq 2.79 
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h, = 1.95C„GN^- !,I N„-‘' N„.<350 

h e = 1.06C M GN tr " a,s N lu "' 41 N„, > 350 


. k r (2k, + hd,) 

' ^T - 

k '=fe>' ( ' 173) 


( T. 3 ' 

100 4 


k,(2k, +hd,) 

' " d p k, 

log w k p = 1.76+. 0129k, / c 

2.2.10 Effective Radial Diffusivity Based on Fahien Equations 


Ddi,r =< d > <d; + 3(d; - d; )■£■ + 2(d; - d; ) 

*M 

r>r„ 

1 r M 

. _ 3.0— .9D 0 r M 

M “ i + r + i r i 
A + r M^ ,Ar M 


r 3 

-I-r) 0<r<r 

r M 


M 


eq 2.80 


eq 2.81 


eq 2.82 


eq 2.83 


D* is obtained from work of Fahien and Smith (1955) to be 
D* = 9 / 8 V 0 (l + 4.85a“ 2 ) 


eq 2.84 


where V 0 is velocity at the center of packed bed. 

2.2.11 Heat Transfer Coefficient Between Wall Surface and Packed Bed, h w 

The effective thermal conductivity in the wall layer of thickness Rp=dp/2, k« w , is defined and hw 
is considered as a correction factor based on the difference keffj and k« w (Kunii and Suzuki, 
1966). 

k k . 1 

gw _ _ j ^ . 

kf -p-. 4 . cq 2.85 

“.N^N„ h' w d ( /k, 

where a m denotes the contribution of fluid mixing in the wall layer and is taken as 0 . 2 . h w 
represents the heat transfer coefficient of the thermal boundary layer which develops on the wall 
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surface. This becomes dominant at high NRe,p and is given by Blasius type equation as (Suzuki, 
1990), 


W,/k,=C(N n ‘'V“) 


eq2.86 


where C is an experimental coefficient with value of 0.1 to 0.2 (Kunii, Suzuki and Ono, 1968). 
kewo is obtained by the following equation similarly to eq (2.65). 

i=s.=e w +(l-£ w )/[<t..+»/3)(k f /k.)] 

k f eq 2.t 

where e m denotes void fraction in the wall layer of about 0.7. 
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SECTION 3 

NUMERICAL ANALYSIS 

The solution of nonequilibria adsorption/desorption problems must be solved numerically. For an 
n component mixture, the numerical model would involve the solution of several coupled 
differential equations: n-1 mass balances equations, n mass balances of rate equations, n 
equilibrium isotherms, one total mass balance, one momentum equation, one heat balance of 
fluid flow, one solid phase heat balance, and one heat balance for the wall. 

The finite difference technique, which is mostly used for processes with varying boundary and 
initial conditions, is a convenient method for solving the coupled partial differential equations 
(PDFs). 

In this work, the PDE's were discretized by first or second order differences in time and spatial 
dimensions. The set of discretized finite difference equations were solved simultaneously by an 
implicit method. At first, based on the stiffness and the sharpness of the momentum equation and 
the mass and heat transfer fronts, two different implicit numerical methods were used to simulate 
the dynamic behavior of the packed bed. For adsorption and flow-through desorption of one and 
two dimensions, the implicit-iterative method of under relaxation was used. For vacuum 
desorption, since the convergence of equations are difficult to achieve because of the steep 
gradient of pressure drop in the packed bed, a more rigorous method had to be used. The implicit 
method of Newman (1968, 1967) was used to simulate the vacuum desorption process. Later, 
during the development of the numerical computation, it appeared that the use of Newman 
method for all the processes reduced the required CPU time and resulted in more stable 
discretized PDE's. 

3.1 The Discrete Numerical Equations 

The spatial dimension was discretized using first or second order backward, forward or central 
differencing depending on the stability of PDE. For instance, having C as a variable, the spatial 
finite differences for three cases are: 


(">" _ f" 

— ! 1=1- + O(Ax) Backward difference 


dx 

dC“ 


Ax 

= rL 


dx Ax 

ac n = cr M -C. 

dx 2 Ax 


-O(Ax) Forward difference 
+ 0(Ax 2 ) Central difference 

0(Ax 2 ) Centra! difference 


eq 3.1 


a 2 c a _ qy 1 -2c°+c:_ 1 

dx 2 Ax 2 


The backward finite difference was used in time: 


pn+1 _ pm 

£b_ = hi -i-+0(At) 

dt At 


eq 3.2 
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Where 

n =the old time step 

n+1 =the current time step being solved for 

i =the node position 

3.1.1 Discretized Spatial Finite Difference With Unequal Grid Size 

Figure 3.1 shows a situation in which adjacent grids are not the same size. This type of grid 
spacing was used out in the radial direction in solving the PDE's. To establish the finite difference 

for the first and second derivatives, Taylor series expansion in powers of (/Ax) and (-Ax) were 
used, giving 


r r ,ir^ x , ^ a ’ c 
C A -C u +(/ite)g| u +— 


+ 0(/Ax) 3 


i.J 


c i _ ij ,c, j -(a*)|£| 

1 U ,,J dx u 2! dx 2 


+ O(Ax) 3 


ii.j 


Eliminating 

d 2 C 


dC 

dx 

2 


between these equations. 




^i.j 

(1 + /) / . 


If ft. 


dx 2 (Ax) 2 L/(l + /) (1- 

is eliminated between eqs 3.3 and 3.4 then 


dC _ 

1 

dx 

(Ax) _ 


/ r (W) r 


u 


with an error of the order of (Ax) 2 . 



FIGURE 3-1 SHOWS THE GRIDS WITH DIFFERENT SIZES 


eq 3.3 


eq 3.4 


eq 3.5 
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3.2 Discretized Partial Differential Equations (PDE's) 

Using the approximated values of first and second order derivatives in PDEs, the discretized 
forms of PDE’s for one-dimensional flow will be generated for numerical solution. Theses 
approximated equations will be solved by the methods mentioned above. 

3.2.1 Discretized Component Mass Balance: 


d 2 C, „ 9Cj_ 1-sdq 
dx 


5^a = D w V " 1 n ^ 
1 dx 2 


dt ' dx 2 dx E dt 
Inserting the finite difference approximations: 

C »+l /~>n «-ia+l ir ,+I 4.P ,+1 _ /"•»+! 1_p 

u - c u r. n H»hl ridiL-i—ir :: 1 

A A “J Ay p U 


At 

collecting C"] 1 terms 

A= J_ + ^ + £l 

At Ax 2 Ax 


(Ax) 2 


solving for C"* 1 and applying under - relaxation method 


C" +1 = C" + to 

'-'U M.j ^ 10 


-C" + — 


( n# p«+l . p»+l C n+1 1 _ p 

Sd. + D, rTI 

“ 1 (Ax) 2 J Ax e l,J 


At 


3.2.2 Discretized Gas Phase Energy 

dT. 1 — E 


dT t . d>T i * , 

P« c « = k r U P« C “ + 




dt dx 2 dx 

Inserting the finite difference approximation 

<T>n+l -pn rpn+1 x T" +1 nr«»+l T ,+ ' 

C l*LZl*L = kf ~ 2 I±L t I±tL - uj^p c ^ + 

* n ^t 1 i rt n fa 


P, 

1 — £ 


(Ax) 2 


4h. 




collecting terms 

a = + U " lpt ^ + ha, — t; 7 + ^f-T£ 
At (Ax) 2 Ax £ * ,J ed 

solving for C”* 1 and applying under - relaxation method 

t;, . t:j x +t: +i 

1 (Ax) 2 


»+l 

J 


T"V =T" , + cd| 

t.j g.j 1 


-T" +— 
i,J A 


PM! 
«,J-t 


OC — + k * > " K1 *’■— + U? +1 P c — + 

P« c « Ai +Kf J Wt n Ax 


At 


i 1 t_ (+ i i T»+l 


J) 


eq2.9 


eq 3.6 


eq 2.11 


eq 3.7 
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3.23 Discretized Solid Phase Energy Equation 


_ rri •■pB+1 ^ ^rrn+1 , rpB+1 

p.c p *> A[ = k. ( ^j, -i- 1 ^h,».(T^- 

collecting TJ terms 

* Pit'll , ^k, u >T'B+1 

A = — =■ + - — V + n.a.T, . 

At (Ax) 1 * * *’ J 

solving for C“J ] and applying under - relaxation method 

*pB+l , *pB+l 

1 »,J+1 2 1 «J-1 

At ‘ (Ax) 2 


eq 2.12 


n +1 

I 


r 




r 


-T" +— 
i,J A 


P.V ^ ^77^ + MJS’ - X AH,r 


Y\ 


B+l 


V 


1*1 


)) 


eq 3.8 


3.2.4 Discretized Column Wall Equation 


r)T 

P.c„^j=- = 2ltR,h. (T, - T. ) - 2jtR.h.(T w - T. ) 

npn+l _ '■TR 

P.c„ ’■> - 2jcR,h. fl~* - r.* 1 ) - 2*R.h.(T7 J ' - TT-' ) 

Collecting T^J terms 
A = + 2itR I h w T;* 1 + 2xR.h.T:^ 


At 


( 


T *,J =T W,j +£0 


-T" , +— 


Y\ 


'B+l 


PwV + 2xR,h w T;; J 1 + 2xR.h.r; 


j) 


eq 2.13 


eq 3.9 


333 Discretized Total Material Equation 

The total pressure equation was solved numerically using Newman's method. 


ap 


a 2 p ap ^du p far ^ a"T ar 


at" D| dx 2 u ax P ax + T 


01 n ° 1 i U £L l-Rxi— 

aT D, a? axj RT e &at 


tV 


T>B+1 nR pB+1 ^pR+1 , p«+l T>B+1 p»+l n »+l ^ ■I n+1 

F = U ~ > i p ^ ~ J tl±l u Li Zl±± p j IhL 

1 At 1 (Ax) 2 Ax Ax 

B+l Ff*»+1 \ 


(Ax) 2 

na+1 <7npn+l , rpa+l 


eq 2.10 
eq 3.10 


_B+1 /<T.B+1 ¥>B T B+1 J- T"' fl X“ +1 T“ +1 

£j I 1 t.j ~ *i,i p 1 «.j+i zhd Z— fcLl | u i «»j 1 «»J~ l 

™+ l 1 At 1 (Ax) 2 Ax 


I.J 


-RT^j 1 


1-E 


„B+1 


1-1 
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3.2.6 Discretized Momentum Equation 

The momentum equation was solved numerically by Newman’s method. 


— = Up-pCu 1 
dx K “ K 

P" + 1 -P" „ 

F 2 = - j + + pCu." 

2 At K J K J 




3.2.7 Discretized Boundary Condition 


eq 2.15 


eq. 3.11 


In this study most of the boundary conditions arc the homogeneous boundary type. In this type of 
boundary condition the normal derivative of variables such as temperature, velocity, and 
concentration at the boundary surface vanishes. 



where C is any variable. 


The boundary conditions for all the PDE's were discretized by extending the region at boundaries 
a distance Ax so that there is an imaginary y node at j-1 or at j+1 at the inlet or outlet of the 
column, respectively. Equation 3.13 can be discretized as. 


C -C 

^J-H ^-j-i _ 

2 Ax 


= 0 


eq 3.14 


This equation can be solved for Cj + i or Cj.i and to be substituted in the original PDE equation 
for the imaginary node. 

A second type boundary condition, where there is a linear combination of the variable and its 
normal derivative at the boundary surface, such as boundary surface at the column wall. 


k^- + hT = hr_ 
ox 


eq 3.15 


where k is conductivity, T is fluid temperature, h is connective coefficient, and T„ is the wall 
temperature. Eq 3.15 can be discretized as. 


T fc i + hT J shT, 

2Ax eq 3.16 

This equation can be solved for Tj.i and to be substituted in the original PDE equation for the 
imaginary node. 
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3.3 Numerical Approach 


For each interior grid point, a set of algebraic equations as given above results when finite 
differences are used to approximate the PDE's. These system of simultaneous equations may be 
written in a general matrix form as 


[A][<f>] [F] eq 3.17 

where [A] is a square matrix, [<J>] is a column vector containing unknown nodal values of <|>, and 
[F] is the column vector containing the source and the prescribed boundary conditions. From 
linear algebra, we know that the unique solutions of the above equation exist when the 
determinant of [A] is nonzero. 


An approach to the solution of eq. 3.17 is by using iterative methods. Iterative methods start from 
a guessed initial field, and sequentially improve the field by using successive iterations until eq 
3.13 is satisfied. When the most recent values of the iterate are used, the Gauss-Seidel method 
results. Iteration can be enhanced by extrapolating the Gauss-Seidel improvement. This 
technique is called relaxation method (Gerald and Wheatley, 1984), for the case of a simple 
steady-state one-dimensional diffusion equation: 


0 

dx 2 k 

the finite difference approximation will be 

fr+.-ZQi+fri-i | Qjil-o 
Ax 2 k 

using the Guess - Siedel method 

implimcnting the relaxation method the above equation becomes 
= j (Ci - C 1 + Ax 2 ^) + (1 - coW 


eq 3.18 


where n indicates successive iteration, and co is called the relaxation factor. Iterative convergence 
is achieved with 0< co <2; co =1 correspond to Gauss-Seidel iteration; 0< to <1; to successive 
under-relaxation (SUR); and 1< co <2; to successive over-relaxation (SOR). A best, or optimum, 
value of co can be found from numerical test or from analysis. In this study, since the equations 
are coupled and non linear, the value of co was found by numerical test to be between .2 to .5 
depending on the stiffness of the PDE. 

In the case of vacuum desorption process, because of steep gradients in the pressure front and the 
velocity equation, the SOR method was not a suitable choice for solving the PDE s system. 
Instead, a different numerical method which is more stable and where the radius of convergence 
is higher was used. This method is lengthy and explained in detail by Newman (1968, 1967). in 
short, the set of PDE's are linearized by Newton method resulting in a system of tndiagonol 
matrix results which can be solved by any ordinary technique. The time of convergence for 
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Newman method is longer for a given time step but the grid points are three times larger and the 
time step is up to a order of magnitude larger than SOR. 

3.4 Convergence And Stability Of Numerical Techniques 

The examination of convergence or the rate of convergence of the numerical methods used in 
this study relied on actual testing of the iterative methods. Since the set of equations are coupled 
and nonlinear, the analytical procedure for determination of convergence can not be used. By 

extensive trial and error of SOR method, the approximated equations were stable for co up to 0.5. 

The component mass balance equations were stable for a wide range of 0) close to 0.5, except for 
the PDE for H 2 O component because of the high affinity of zeolite for water. The heat balance 

equations were also stable for a wide range of co close to 0.5. Keeping to constant at these values, 
the number of grids for a bed 20 inches long bed were 75 for CO 2 and 150 for water in single 
component adsorption. The time step ranged from 7 to 18 seconds. In multi-component 
adsorption the limiting value is determined by what the H 2 O component was in the single 
component adsorption case. 

In Newman's method, the number of grids could be reduced to 50 and time step increased to as 
large as 60 seconds. In both methods the iteration was stopped if (C n+ ^-C n )/C n+ ^ was less than 
1.0E" 4 for each grid point. This error criteria was chosen because the difference in two 
consecutive iteration was less than 1.0e-5 for a gas phase concentration of 1.0e-10. For the first 
few steps, the number of iterations is large but it decreases to a minimum of 20 to 50 after that. 

The stability and the rate of convergence in these PDE's are mostly affected by the rate of 
adsorption which is related to the isotherms. The second most important criteria is the diffusion 
coefficients. The implementation of diffusion coefficients makes the PDE's parabolic and in turn 
causes the equations to be more stable, preventing any initial error from propagating in time. 
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SECTION 4 

COMPUTER MODEL VERIFICATION 


4.1 Test Apparatus 

Verification of the numerical models is accomplished with test data from the Molecular Sieve 
Material Bench Test (MSMBT), a Marshall Space Flight Center apparatus. The MSMBT was 
designed to capture the dynamic adsorption and desorption characteristics of sorbent materials to 
be used in the International Space Station 4BMS for a range of CO 2 and H 2 O partial pressures. 
The test apparatus consists of a small packed column 2 inches in diameter and 10 or 20 inches 
long, depending on the configuration. Instrumentation of the column includes temperature 
probes and sampling tubes for measurement at sorbent material endpoints and intermediate 
points. Continuous measurements of the exit CO 2 and H 2 O partial pressures, and all 
temperatures, are recorded. A gas chromatograph is used to capture the breakthrough at interior 
bed locations. The MSMBT is fully described elsewhere (Knox, 1992; Mohamadinejad, 1994). 
Any significant changes made in the test configuration will be discussed in the following 
sections as appropriate. 

The MSMBT is used to obtain data empirically that is not available otherwise or not reliable in 
the open literature, such as heat of adsorption and lumped mass transfer coefficients. Testing to 
obtain empirical data is performed in such a way as to isolate the phenomenon of interest as 
much as possible. Heat transfer coefficients, (not available otherwise due to the use of unique 
NASA foam insulation for superior adiabatic conditions) for example, were obtained by flowing 
dry, heated nitrogen through a sorbent bed desorbed in the presence of nitrogen. 

The second use of the MSMBT is to verify, following determination of empirical values, the 
accuracy of the model under conditions similar to those expected in the ISSA. This consists of 
comparing a series of MSMBT runs at varying conditions to the results of the computer model 
ran at the same conditions. Of special interest is the capability of the model to predict transient 
bed temperature and partial pressure for conditions not used to obtain the empirical values. 

4.2 Thermal Characterization with Inert Gas Heating 

In order to approach adiabatic conditions during adsorption and strip desorption testing, three 
layers of high performance insulation are used on the column. The inner layers are commercially 
available felt insulation. A third layer of spray-on foam specifically designed for the Space 
Transportation System External Tank was added to improve heat retention. However, thermal 
characteristics were not available for the foam insulation. In order to obtain coefficients for the 
transfer of heat from the outside (ambient air) through the three layers of insulation to the 
canister wall (H_OW) and from the carrier gas, or fluid, to the canister wall (H_FW), a test using 
heated nitrogen gas was conducted. 

To simulate the inert gas heating test, the bed inlet temperature measured during the test was 
curve fit and applied as an input to the computer model. Bed inlet volumetric flow rate was 
calculated based on the ideal gas law. 
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4.2.1 Molecular Sieve 5A 

Specifications for the thermal characterization test with molecular sieve 5A are shown in Figure 
4-1. Volumetric flow rate is required as a model input This is calculated based on the flow 
controller rate in standard liters per minute (conditions at point 1) and bed inlet conditions (point 
2 ): 


P,T,G t _ 14.696 28.04 T 

2 " PjT, ” 15.47 535 2 eq4.1 


P 2 (15.47 psia) is the average inlet pressure calculated from test data. Pressure varied less than 
0.5% from P 2 during the test T 2 is the test inlet temperature which has been curve fit for use in 
the model. Gi is the volumetric flowrate. 


1 Thermal Characterization Data Sheet 1 

Start Tim#: 

Data Pile: 

05/17/94 heat char I3x 



Sorbent Mutrial: 

5A 



CamrQat: 

N2 

Nom: 

Thermal Charactenzaoon of 13X matanal. Met heater set at 350*F. II 

Sorbet* G«Km): 

T1 is r before materiel inlet; T2 end T3 are matanal Met. T4 is material CL, T5 and || 

Teat Duration: 


Conductors): 

HM 



and Initial Condition* 



GC Configuration 


I Camar F*c w Rata: 

28.04 

SLPM 1 


TCDVwnFlowi: na 

R-2-1S-AAA 





TCD Vent Flow 2: na 

R-2-15-AAA 

Wt/FInal Mat DP: na 


degrees C 


Samole Flow ©Port 5: na 

R-2-15-AA 

H20 Mol* %: na 



Detector Current ne 

mA 

MatpoH20: na 


mmHg 


Column Catalog No.: na 

AUtaehCat 

In CQ2%: na 




TCOOGTTTamo.: na 

degreesC 

1 


mmHg 


INJ/COL Tamo.: no 

degrees C 

MM Bad Tamp: 

74.5 

da^easP 


Valve Heat Tamp.: na 

degrees C 

Initial Ambient Tamp: 

75.0 

degrees F 


Tomporoturom 


Final Ambient Tamp: 

76.3 

degrees F 


T6 Location: Reactor Wall 


1 Bad Proaauroa: with Port 6 flow to GC 


T13 Location: Mai Manifold 


S' from matanaJ Mat 

15.522 

pwa 


T12 Location: Ambient 


Matanal Met Praaaura: 

15.507 

psia 


T14 Location: Ambient 


Matenai CL Pressure: 

15.449 

psia 




Material Exit Preesure: 

15.384 

psw 


D1 Location: na 


DP Sensor Pressure: na 


psia 


D2 Location: na 






Cl Location: ne 


Ambient Pressure: 

1432 



C2 Location: na 



FIGURE 4-1 5A THERMAL CHARACTERIZATION TEST SPECIFICATIONS 
4.2.1.1 FLOW1MOL Model Thermal Verification 

The determination of heat transfer coefficients and verification of the single material flow- 
through adsorption and desorption model, FLOW 1 MOL, is described in this section. 

Variations of the heat transfer coefficients, H_OW and H_FW, were studied with the computer 
model. Sensitivity to changes in H_OW is shown in Figure 4-2. Sensitivity to changes in H_FW 
is shown in Figure 4-3. The test data for the bed outlet is shown as "T5 [°F]", while the model 
output for variations in the heat transfer coefficient is labeled T gas@5". 

The final values selected for H_FW and H_OW were 2.5 and 0.25, respectively. The 
comparison with test data is shown in Figure 4-4. The test temperatures for the bed inlet, center, 
and outlet are labeled based on the measuring thermocouple as "T3 [°F]", "T4 [°F]", and "T5 
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[°FJ" respectively. The corresponding model data is labeled based on node point as "gas T 5", 
"gas T 50", and "gas T 101" respectively. 

As shown in Figure 4-4, the FLOW 1 MOL thermal model can simulate test data very closely with 
the adjustment of the heat transfer coefficients. To test the model’s predictive capabilities, 
another nitrogen heating test with different flow rate and heater set point should be run. 
Independent simulation with FLOW1MOL and comparison of results would indicate predictive 
accuracy. 


Variation* of tharmai coafflcant H_FW 
(Haat tranafar from fluid to eanistar wall) 



Tton. Hmrt 


FIGURE 4-2 VARIATIONS OF H_FW FOR FLOW1MOL 


V. 
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Variations of tharmal coafficant H_OW 
(Hast transfar from outslda to eanlatar wall) 



FIGURE 4-3 VARIATIONS OF H_OW FOR FLOW1MOL 
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4 . 2 . 1.2 2DM0L Model Thermal Verification 

The determination of heat transfer coefficients and verification of the two-dimensional 
adsorption and desorption model, 2DMOL, is described in this section. 

Variations of the heat transfer coefficients, H_OW and H_FW, were studied with the computer 
model. Sensitivity to changes in H_OW is shown in Figure 4-5. Sensitivity to changes in H_FW 
is shown in Figure 4-6. The test data for the bed outlet is shown as T5 [°F] , while the model 
output for variations in the heat transfer coefficient is labeled ’T gas@5". Note that the 
sensitivity of the 2-dimensional model is greatly increased over that of the 1 -dimensional model 
as shown in the previous section. This can be expected due to the existence of radial nodes in 
this model, allowing a radial gradient *in temperature. Since the H_FW is a function of 
temperature, it changes along the axial direction of the packed column. Simulation of model with 
the actual test shows that the prediction of H_FW by theoretical equation as it described in 
Section 2. fits the temperature profile very well. 


The final values selected for H_FW and H_OW were 0.3 and 0.25, respectively. The 
comparison with test data is shown in Figure 4-7. The test temperatures for the bed inlet, center, 
and outlet are labeled based on the measuring thermocouple as T3 [ F] , *T4 [ F] ^ an d 
[°F]" respectively. The corresponding model data is labeled based on node point as "gas T 5 , 
"gas T 50", and "gas T 101" respectively. 

As shown in Figure 4-7, the 2D MOL thermal model can simulate test data very closely with the 
adjustment of the heat transfer coefficients. The final value selected for H_FW, 0.3, however, is 
an order of ma gnitude less than the theoretical value (4.0), calculated in Equation 2.86. This is 
expected since in the actual adsorption test the bed temperature is around 100° F. Since the heat 
transfer coefficient is a function of Reynolds number, it would be best to run several experiments 
with different Reynolds number and fit the obtained results in a empirical equation. 


Variations of thsrmal eosfflclsnt H_FW 
(Hast transfer from fluid to eaniatsr wall) 


* 


i 



FIGURE 4-5 VARIATIONS OF H_FW FOR 2DMOL 
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FIGURE 4-7 FINAL THERMAL VERIFICATION OF 2DMOLFOR 5A 
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4.3 Carbon Dioxide Adsorption 

4.3.1 Molecular Sieve 5A 

The test ran on 01-26-94 will be used to verify the FLOW 1 MOL and 2DMOL bed models for 
carbon dioxide adsorption. Test specifications are shown in Figure 4-8. 

Two phenomenon were observed to occur during this adsorption test which are not generally 
accounted for in mathematical models of this type. 

The first phenomenon is the significance of bed channeling in the 1.875 inch ID cylindrical 
column with sorbent pellets of 8-12 mesh (appx. 2 mm in diameter). The existence of significant 
bed channeling is evident in Figure 4-9, which shows the breakthrough of CO 2 in the column. 
Note the discrepancy in the breakthrough at the material exit centerline (labeled "Outlet") from a 
point 5 inches downstream of the material exit ("Outlet Beads"). The downstream point 
measures all gas exiting the column, mixed via turbulence through 5 inches of 3 mm glass beads. 
Consistent with the assumption of flow channeling at the column wall, the breakthrough is earlier 
for the mixed gas than at the column centerline. The two-dimensional model was developed to 
account for the channeling, and to aid in derivation of a technique to intelligently apply a 
channeling factor to the more CPU efficient single dimension models. 

It is important to note that the presence of channeling will be much more pronounced in the 5A 
sorbent bed heater core. The heater core is configured such that a number of approximately 1/2 
inch square channels contain the sorbent material. Channeling occurs at the walls of the packed 
bed, and the sorbent bed channels have a very high ratio of pellet diameter to wall diameter, 
which is the critical parameter for flow channeling. The two-dimensional model can be used to 
simulate the actual 4BMS as long as a good estimate of 5A sorbent bed reactor core channeling 
is available. 

The second phenomenon observed is the importance of including nitrogen co-adsorption for 
accurate modeling of the carbon dioxide breakthrough with nitrogen as the earner gas. Figures 
4-10 and 4-1 1 show the test data compared with modeling results with and without coadsorption 
of N2. As seen in Figure 4-10, the initial adsorption of N2 on a empty bed creates a fast rise in 
temperature over the entire bed. The higher bed temperature reduces bed CO 2 adsorption 
capacity. N2 coadsorption also marginally reduces the bed capacity for C02- As a result, the 
earlier breakthrough curves shown in Figure 4-11 reflect the lower bed capacity for modeling 
with N2 coadsorption. These results also correspond well to the actual test data in both figures. 

4.3.1.1 FLOW1MOL Model Verification 

The determination of input values, mass transfer coefficients, and verification of the single 
material flow-through adsorption and desorption model, FLOW1MOL, is described in this 
section. 

Model inputs are shown in Figure 4-12. Determination of appropriate values for each non- 
obvious input parameter are discussed below. 

Inside Diameter: Based on 2 inch OD and wall thickness of 1/16 inch. 

Wall Density: For canister wall, stainless steel 

Void Fraction: Based on value given in Wright et. al. for Davison 5 A 
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Interfacial Surface Area: Based on Davison Chemical Co. supply. 

Pellet Conductivity: Based on Davison Chemical Co. supply. 

Pellet Specific Heat: Based on Davison Chemical Co. supply. 

Heat Transfer Fluid to Wall: Determined via thermal characterization test (see Sect. 4-2) 


1 Adsorb Data Sheet 

Start Tima: 

10:00 

Data File: 

01/26/94 CQ2 on 13x 1 

Sorbent Material: 

5A 





Gamer Gas: 

N2 

Notes: 

Another run like 01/19/94 to validate column repeatability | 

Sortttle Gas(es): 



Teat Duration: 



Conductors): 



\lnlat and Initial Condition* 

GC Configuration 

Gamer Flow Rata: 

28.04 

SL PM 


TCD Vent Flow 1 : 8 

C02 Flow Rata: 

223.9 

SCCM 


TCD Vent Flow 2: 9 7 

inct /Final Inlet DP: 


degrees C 


Samole Flow <2>Port 5: 11 

Inlet H20 Mole %: 




Detector Current: 1 50 

Inlet ppH20: 


mmHfl 


Column Catalog No.: O-5000 

In C02 %: 

0.774 



TCD/DETTTemp.: 120/130 

Inlet ppC02: 

6.14 

mmHg 


INJ/COLTamp.: 150/100 

Initial Bed Temp: 

77.7 

degrees F 


Valve Heat Temp.: 117 

Initial Ambient Temp: 

77 

degrees F 


Tamparaturma: 

Final Ambient Temp: 

77 

decrees F 


T6 Location: Mati. exit opo. sere 

Bed Praaauraa: 

with Port 6 How to GC 


T1 1 Location: Exit in Beads 

Inlet Manifold Pressure: 

15.587 

psia 


T12 Location: Ambient 

Material Inlet Pressure: 

15.348 

psia 


T14 Location: 

Malarial CL Pressure: 

15.312 

peia 


T15 Location: Insulation Stan 

Material Exit Pressure: 

15.265 

psia 


D1 Location: Column exit 

DP Sensor Pressure: 

15.22 

psia 


D2 Location: Column exit 





Cl Location: Column exit 

Ambient Pressure: 


osia 


C2 Location: Column exit 

C02 Calibration: 





Cal. GasCQ2% Vol: 

0.39992% 

tn N2 



Low Pressure Calibration: j 

14.9 

[psia 




H20 Area 

N2 Area 



Sample 1: 

12036 

2739386 

1 


Sample 2: 

12048 

2739601 

1 


High Pressure CaJfcration: ] 

15.3 

]psia 




H20 Area 

N2 Area 



Sample 1: 

12309 

1 2797320 

I 

■ • - 


FIGURE 4-8 SPECIFICATIONS FOR 01-26-94 CO 2 ADSORPTION TESTING 
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FIGURE 4-9 CO 2 PARTIAL PRESSURES FOR 01-26-94 TEST 



FIGURE 4-10 CO 2 MODEL TEMPERATURE COMPARISONS WITH AND WITHOUT 

NITROGEN COADSORPTION 
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Heat Tra nsf er Outside to Wall: Determined via thermal characterization test (see Section 4-2) 
Pellet Density: Based on Davison Chemical Co. supply. 

Heat of Adsorption: Based on Davison Chemical Co. supply. 

Mass Transfer Coefficients: Determined empirically based on comparison of test data to model 
results 

Results of the model comparison are shown by the solid lines in Figures 4-10 and 4-11. As is 
evident, the comparison is very favorable. Note in particular the excellent agreement of 
coadsorption temperature effects in Figure 4-10. The immediate temperature increase caused by 
N2 adsorption is properly reflected by the model. In addition, although not exact in magnitude, 
the subsequent dramatic drop at both the midpoint and outlet positions is also properly modeled. 

Also note the proper change in slope of the breakthrough curve in Figure 4-12 from the midpoint 
to outlet positions. This change is due to increasing bed temperatures and the subsequent 
broadening of the mass transfer zone which is an indication of a nonequilibrium conditions 
between the gas and solid phase during the adsorption of CO 2 on 5A material. The comparison of 
the experimental data with models predicts the mass transfer coefficient of CO 2 to be .017 ft/hr. 
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Variable 

Description 

Units 

Current Value 

END 

final time 

hours 

3 

DELT1 

time step 

hours 

0.00100 

NJ 

Number of nodes 

n/a 

101 

DELZ1 

distance between nodes 

feet 

0.0083333 

TO 

Ambient temperature 

°R 

537 

G F 

Volumetric flow rate 

CFH 

55.5 

T 0 

Inlet temperature 

°R 

537 

NS 

Number of components 


2 

INERT 

Inert aas (1=N2: 2«He) 

n/a 

1 

P TOT 

Total Inlet Pressure 

osia 

15.89 

BC C(1) 

Inlet partial pressure 

osia 

0.12 

BC C(2) 

Inlet partial pressure 

osia 

0.00 

BC C(3) 

Inlet partial pressure 

£§ja 

15.77 

BC C(4) 

Inlet partial pressure 

DSia 

0.00 

z 

Bed lenath 

feet 

0.83333333 j 

D E 

External Diameter 

feet 

0.1666667 

D 1 

Inside Diameter 

feet 

0.15625 

RO WA 

Wall Density 

lb/ft A 3 

489 

EPSEX 

void fraction (eta) 

dimless 

0.35 

AINT 

Interfacial Surface Area 

ft A 2/ft A 3 

635 

CON S 

Pellet (solid) conductivity 

BTU/°F- 

0.1 

CP S 

Pellet (solid) specific heat 

BTU/°F-lb 

0.2 

H FW 

Heat transfer fluid to wall 


2.5 

H OW ! 

Heat transfer outside to wall 


0.1 

RO S 

Pellet density 

lb/ft A 3 

75 

M W(1) 

Molecular Weiaht 

Ib/lb-mol 

44 

M W(2) 

Molecular Weiaht 

Ib/lb-mol 

' 18 

M W(3) 

Molecular Weiaht 

Ib/lb-mol 

r~ 28 

M W(4) 

Molecular Weiaht 

Ib/lb-mol 

32 

HEAT(I) 

heat of adsorption 

BTU/lb-mole 

-20000 

HEAT(2) 

heat of adsorption 

BTlI/lb-mole 

-30000 

HEAT(3) 

heat of adsorption 

BTU/lb-mole 

-9600 

HEAT(4) 

heat of adsorption 

BTU/lb-mole 

-8988 

K F(1) 

Mass Transfer Coefficent 

ft/hr 

0.02 

K F{2) 

Mass Transfer Coefficent 

ft/hr 

0.003 

K F(3) 

Mass Transfer Coefficent 

ft/hr 

0.05 

K F(4) 

Mass T ransfer Coefficent 

ft/hr 

0 

IND(l') 

Indicator for C02 present 


1 

IND(2) 

Indicator for H20 present 


o 

IND(3) 

indicator tor N2 present 


1 

IND(4) 

Indicator for 02 present 


! o 


FIGURE 4-12 INPUT DATA SET "A" FOR FLOW1MOL COMPARISON WITH 01-26-94 

TEST 
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Variable 


LABELd 


LABEU2 


LABEL(3 


LABEL(4 


AOUTd 


AOUT(2 


nsnis] 


AOUT(4 


IQUTd 

IOUT(2 

IOUT(3 


Enncn 


IOUT(5 


S B 


CON WA 


CON Wl Q 


CON Wl K 


CP WA 


CP Wl Q 


CP Wl K 


RO Wl Q 


RO Wl K 


X WA 


X Wl Q 


X Wl K 


RA 


RAV 


EPSIN 


RHOS 


ALPHA1 


R P 


Description 


Output Labels 


E3 


C arrav indices to output 


Node locations to be out 


Cross sectional surface area 


Wall thermal conductm 


IN L3 


IN L5 


IN L6 


Canister Wall Thickness 


Q-felt insultation thickness 


K-felt insulation thickness 


BC 

LI 

BC 

L2 

BC 

L3 

BC 

L5 

BC 

L6 

IN 

LI 


boundary temperature for fluid 


boundary temperature for solid 


boundary temperature for canister wall 


fluid pressure at each aridf? 


inlet temperature for fluid 


inlet temperature for solid 


inlet temperature for canister wall 


fluid pressure at each qrid(? 


Gas Constant 



FIGURE 4-12 INPUT DATA SET "B" FOR FLOW1MOL COMPARISON WITH 01-26-94 

TEST 
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4.3.1.2 2DM0L Model Verification 

The determination of input values, mass transfer coefficients, and verification of the two- 
dimensional single material flow-through adsorption and desorption model, 2DMOL, is 
described in this section. 

Model inputs are shown in Figure 4-13 and 4-14. 


1 Variable 1 Description 

Units 

Current Value 

END 

final time 

hours 

2 

DELT 

time step 

hours 

0.00250 

NJ 

Number of axial nodes 

n/a 

51 

NJR 

Number of radial nodes 

n/a 

20 

DELZ 

distance between nodes 

feet 

0.01666666 

TAMB 

Ambient temperature 

°R 

537 

G F 

Volumetric flow rate 

CRH 

55.6 

TO 

Inlet temperature 

°R 

537 

NC 

Number of components 


2 

1 INERT 1 Inert oas (1«N2: 2-He) 

n/a 

1 

P TOT 

Total Inlet Pressure 

mmHg 

789.43 

P C(1) 

Inlet partial pressure 

mmHg 

6.13 

DBH 

Inlet partial pressure 

mmHg 

0.00 


Inlet Dartial pressure 

mmHg 

783.30 


mmHg 

0.00 


Bed length 

feet 

0.83333333 

D E 

External Diameter 

feet 

0.1666667 

D 1 

Inside Diameter 

feet 

0.155833 

RO WA 

Wall Density 

lb/ft A 3 

489 

EPSEX 

void fraction (eta) 

dimless 

0.35 

AINT 

Interfacial Surface Area 

ft A 2/ft A 3 

635 

CP S 

Pellet (solid) specific heat 

BTU/°F-lb 

0.25 

RO S 

Pellet density 

lb/ft A 3 

75 


Molecular Weight 

Ib/lb-mol 

44 

M W(2) 

Molecular Weight 

Ib/lb-mol 

18 

M W(3) 

Molecular Weight 

Ib/lb-mol 

28 


Molecular Weight 

Ib/lb-mol 

32 

HEAT(1) 

heat of adsorption 

BTU/lb-mole 

-18000 

HEAT(2) 

heat of adsorption 

BTU/lb-mole 

-28000 

HEAT(3) 

heat of adsorption 

BTU/lb-mole 

-8988 

HEAT(4) 

heat of adsorption 

BTU/lb-mole 

-8988 

■JUU» 

Mass Transfer Coefficent 

ft/hr 

0.02 


Mass Transfer Coefficent 

ft/hr 

0.0035 

K F(3) 

Mass Transfer Coefficent 

ft/hr 

0.1 

im 

Mass Transfer Coefficent 

ft/hr 

0.1 


FIGURE 4-13 INPUT DATA SET "A" FOR 2DMOL COMPARISON WITH 01-26-94 TEST 


43 

























MDC 95W5104 


September 1995 


Variable 1 

Description 

Units 

Current Value 

S B 

Cross sectional surface area 

ft A 3 

0.019069 

CP WA 



0.109848 

RA 



0.00472441 

RAV 



0.0058 

RKDS 



75 

ALPHA1 



635 

R P 



0.0047244 

D P 



0.0094488 

R 

Gas Constant 

— 

10.73 

PI 



3.141593 

UINS 



0.354 

HWALL 



12 

ND 

Number of comDonents 


2 

T FO 

same as TO _ 


537 

QD 

j 


416975040 

CON SI 



1 

NP 



125 

FT 

same as PTOT 


789.42569 

LEN 

same asZ 


1 .66667 

VOID B 

same as EPSEX 


0.35 

IND(1) 



1 

IND(2) 



0 

IND(3) 



r i 

IND(4) 



0 

IDES1 



0 

ISAT 



0 


FIGURE 4-14 INPUT DATA SET "B" FOR 2DMOL COMPARISON WITH 01-26-94 TEST 

Results of the model comparison are shown in Figures 4-15 and 4-16. As is evident, the 
comparison is very favorable. Note that two sets of model data are presented; averaged data and 
centerline data. The centerline data for node 51 is the central node radially and the last bed 
material node axially. Averaged data for node 51 is also at the last bed node axially, but is an 
average of all the radial nodes. The averaged data is thus representative of gas after mixing in 
the glass beads, or the test data labeled "Outlet Beads". Averaging of data was done by two 
methods, Cubic Spline and Simpson integration (Gerald and Wheatley, 1984). It was found that 
the Simp son integration method gives better results than the Simpson method. 

Based on the above discussion, it is expected that centerline data - the line with filled markers in 
Figure 4-15 - will compare with the small circular markers. As seen from the figure, this 
comparison is indeed favorable. Average data should be compared with the small triangular 
markers, and once again, this is a favorable comparison. As a result, it can be inferred that the 
two-dimensional model does correctly model the channeling observed in this test 

As seen from Figure 4-16, the temperature comparison is also favorable. The increase in fidelity 
of the two-dimensional model is evident by comparison of Figure 4-16 with the results from the 
one-dimensional model in Figure 4-10. The 2DMOL simulation more closely follows the actual 
temperature peak, both in time and in magnitude. 
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The short time of breakthrough allows it to use IAST, even though it takes more CPU time than 
using the Langmuir isotherm. A mass transfer coefficient of .017 ft/hr was used in predicting the 
CO 2 breakthrough curve. 


01-26-M Comparison with 2DMOL 
k 1*0.17 

Hollow markara • cantarllna 
FUlad markara - avaraga 
Small markara - last data 



TNC 


FIGURE 4-15 CO 2 MODEL BREAKTHROUGH COMPARISONS FOR 01-26-94 TEST 

WITH 2DMOL RESULTS 


01-20-04 Comparison with 20M0L 
k_fo0.l7 

Hollow markara - cantarllna 
FUlad markara - avaraga 
Small markara - taat data 



TM( 


FIGURE 4-16 CO 2 TEMPERATURE COMPARISONS FOR 01-26-94 TEST WITH 2DMOL 

RESULTS 
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4.4 Water Adsorption 
4.4.1 Molecular Sieve 5A 


1 Adsorb Data Sheet 

Start Time: 1 

Data File: 




J 

Sorbent Material: 

13x 

_J 

Carrier Gas: 

N2 

Notes: 


J 

Sorbate Gas(es): 

H20 


Test Duration: ! 


Conductors): 



1 inlot and Initial Conditions 



GC Configuration 




Carrier Row Rate: 

26.04 SLPM 


TCD Vent Row 1 




C02 Row Rots: 

NASCCM 


TCD Vent Flow 2 




IniURnal Inlet OP: 

3.8 degreesC 


Sample Row & Port 5 




inlet H20 Mole %: 

0.7503 



Detector Current 


150 

rr 

Inlet ppH20: 

€.035108 

mmHg 


Column Catalog No. 


C-5000 

/ 

In C02%: 

NA 



TCD/DETT Temp. 


120/130 

d 

Inlet ppC02: 

SVALUE! 

mmHg 


INJ/COL Temp. 


150/100 

d 

Initial Bed Temp: 


degreesF 


Valve Heat Temp. 


117 

d 

Initial Ambient Temp: 


degrees F 


Tamporaturoo: 




Final Ambient Temp: 


degrees F 


T6 Location^ 

Wall at Midpoint 


Bod Pressures; 

with Port 6 flow to GC 


Til Location: 

Skin 


Inlet Manifold Pressure: 

15.587 psia 


T12 Location: 

Ambient 


Material Inlet Pressure: 

15.554 psia 


T14 Location: 

Beaker 


Material CL Pressure: 

15.505 psia 


T15 Location: 

ChWer 


Material Exit Pressure: 

15.456 psia 


D1 Location: 

Column exit 


DP Sensor Pressure: 

14.872 psia 


D2 Location: 

Column exit 






Cl Location: 

Column exit 


Ambient Pressure: 

14.446 psia 


C2 Location: 

Column exit 


H20 Calibration: 










H 20 Area 

N2 Area 

Curve Fit 
Partial Pressure 




-1.7 1 

Sample 1: 

0654 

2820155 

4.05 




degrees C 

Sample 2: 

0667 

2827783 

mm Hg 




Medium Dewpoint 


H20 Area 

N2 Area 

Partial Pressure 




10.6 

Sample 1: 

22570 

2809176 

| 9.59 




degrees C 

Sample 2: 

22596 

2810229 

1 mm Hg 





H20 Aim 

N2 Area 

Partial Pressure 




18.2 

Sample 1: 

36444 

2791041 

1 15.67 




degreesC 

Sample 2: 

36343 

2789987 

1 mm Hg 







- 


-J 


FIGURE 4-17 SPECIFICATIONS FOR 01-26-94 H 2 0 ADSORPTION TESTING 

The test ran on 01-26-94 will be used to verify the FLOW1MOL and 2DMOL bed models for 
water adsorption. Test specifications are shown in Figure 4-17. Breakthrough for water is 
shown in Figure 4-18. Note, as in the test of CO 2 adsorption, the discrepancy between 
breakthrough at the material exit measured at the centerline and after gas mixing (marked "Exit" 
and "Mixed" respectively). The extremely high affinity of zeolite 5A is also evident in the time 
required for breakthrough. 
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04/07/94 H20 on 13X 

WoM liam Mi kr H20 «i M2 at «.00 w iH u on 
MT07/*4 MOTUl Md IRMIM imi a n«T 
to imM *■ ll Upai Sorboni vMd w« 
Gild 13jr i t— H r Mri Mom wood tar Mn4 


i 

S 

8 

i 

i 

A. 



0 2 4 6 6 10 

Ttaw, Han 


FIGURE 4-18 H 2 0 BREAKTHROUGH FOR 04-07-94 TEST 
4.4.1.1 FL0W1M0L Model Verification 

The determination of mass transfer coefficients and verification of the single material flow- 
through adsorption and desorption model, FLOW 1 MOL, is described in this section. 

Model inputs are shown in Figure 4-19 and 4-20. Results of the model comparison are shown by 
the solid lines in Figures 4-21 and 4-22. For breakthrough, the FLOW1MOL model compares 
well with test data at the midpoint and fairly well at material exit, except as the breakthrougn 
curve approaches the inlet partial pressure. Deviations from the test data may be explained by 
the lack of channeling modeled by FLOW1MOL. Channeling appears to have a greater 
influence in water adsorption than C0 2 , perhaps due to the much longer duration of the 
adsorption run. For temperatures, the comparison is also fairly good, especially during the 
heating of the column. 
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Variable 

Description 1 

Units \ 

Current Value 

END 

final time 

hours 

4 

DELT1 

time steD 

hours 

0.00300 

NJ 

Number of nodes 

n/a 

61 

DELZ1 

distance between nodes 

feet 

0.01388888 

TO 

Ambient temperature 

°R 

532 

G F 

Volumetric flow rate 

CFH 

56.76 

T 0 

Inlet temperature 

°R 

532 

isC 

Number of components 


2 

INERT 

Inert aas (1 -N2: 2«He) 

n/a 

1 

P TOT 

Total Inlet Pressure 

Dsia 

15.68 

BC C(1) 

Inlet partial pressure 

osia 

0 

BC C(2) 

Inlet partial pressure 

Dsia 

0.116021 

BC C(3) 

Inlet partial pressure 


15.56397 

BC C(4) 

Inlet partial pressure 

osia 1 

0 

z 

Bed lenath — . 

feet 1 

0.83333333 

D E 

External Diameter 

feet 

0.1666667 

D 1 

Inside Diameter 

feet 

0.15625 

RO WA 

Wall Density 

lb/ft A 3 

489 

EPSEX 

void fraction (eta) ! 

dimless i 

0.35 

AINT 



635 

CON S 

Pellet (solid) conductivity 

EgmEa 

0.1 

CP S 

Pellet (solid) specific heat 

BTU/hr lb °R 

0.2 

H FW 

Heat transfer fluid to wall 


i 2.5 

H OW 

Heat transfer outside to wall 


0.1 

RO S 

Pellet density 

lhffl A 3 

75 

M W(1) 

Molecular Weiaht 

Ib/lb-mol 

44 

M W(2) 

Molecular Weiaht 

Ib/lb-mol 

18 


Molecular Weiaht 

Ib/lb-mol 

28 


Molecular Weiaht 

Ib/lb-mol 

32 

HEAT(1) 

heat of adsorption 

BTU/lb-mole 


HEAT(2) 

heat of adsorption 



HEAT(3) 

heat of adsorption 

BTU/lb-mole 

-8988 

HEAT(4) 

heat of adsorption 

BTU/lb-mole 

-8988 

K F(1) 

Mass Transfer Coefficent 

ft/hr 

0.02 

K F(2) 

Mass Transfer Coefficent 

Mir 

0.0025 

K F(3) 

Mass Transfer Coefficent 

ft/hr 

0.1 

K F(4) 

Mass Transfer Coefficent 

ft/hr 

0 

IND(1) 

Indicator for C02 present 


0 

INDf2) 

Indicator for H20 present 


1 

IND(3) 

Indicator for N2 present 


1 

IND(4) 

Indicator for 02 present 


0 


FIGURE 4-19 INPUT DATA SET "A" FOR FLOW1MOL COMPARISON WITH 04-07-94 

TEST 
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LABEL(I) i 

Output Labels 


"PPH20" 

l_ABEL(2) i 



"oo N2" j 

LABEU3) 



"oas T" 

LABEL(4) 



"tot P" 

AOUT(1) 

C array indices to outDut 


1 

AOUT(2) 



2 

AOUT(3) 



5 

AOUT(4) 



10 

IOUT(1) 

Node locations to be output 


2 

IOUT(2) 



15 

IOUT(3) 



30 

IOUT{4) 



45 

IOUT(5) 



61 

S B 

Cross sectional surface area 

ft A 3 

0.019175 

CON WA 

Wall conductivity 

BTU/hr ft °R 

32.875 

CON Wl Q 

Conductivity for Q-fiber 

BTU/hr ft °R 

0.29 

CON Wl K 

Conductivity for Min-K 

BTU/hr ft °R 

0.19 

CP WA 

Specific Heat for wall 

BTU/hr lb °R 

0.109848 

CP Wl Q 

Specific Heat for Q-fiber 

BTU/hr lb °R 

0.21 

CP Wl K 

Specific Heat for Min-K 

BTU/hr lb °R 

0.21 

RO Wl Q 

Density for Q-fiber 

lb/ft A 3 

3.5 

RO Wl K 

Density for Min-K 

lb/ft A 3 

16 

X WA 

Canister Wall Thickness 

feet 

0.00541667 

X Wl Q 

Q-fiber insultation thickness 

feet 

0.04166667 

X Wl K 

Min-K insulation thickness 

feet 

0.02083333 

RA 

not used 


0.00472441 

RAV 

not used 


0.00472441 

EPSIN 

Pellet macrooore porosity 


0.317 

RKD6 

Pellet density 

lb/ft A 3 

43 

ALPHA1 

not used 


575 

R P 

Pellet radius 

feet 

0.00472441 

D P 

Pellet diameter 

feet 

0.00944882 

BC LI 

boundary temperature for fluid 

°R 

532 

BC L2 

boundary temperature for solid 

°R 

532 

BC L3 

boundary temperature for canister wall 

°R 

532 

BC L5 

fluid pressure at inlet 

psia 

15.68 

BC L6 

fluid pressure at inlet 

DSia 

15.68 

IN LI 

initial temperature for fluid 

°R 

532" 

IN L2 

initial temperature for solid 

°R 

532 

IN L3 

initial temperature for canister wall 

°R 

532 

IN L5 

initial pressure at each arid 

°R 

15.68 

IN L6 

initial pressure at each arid 

°R 

15.68 

R 

Gas Constant 


10.73 

PI 



• 3.141593 

ITEST 

flaq for calculation of flow properties 


0 


V 


FIGURE 4-20 INPUT DATA SET "B" FOR FLOW1MOL COMPARISON WITH 04-07-94 

TEST 
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7 
6 
6 
4 
3 
2 
1 
0 
-1 

FIGURE 4-21 H 2 O BREAKTHROUGH COMPARISONS FOR 04-07-94 TEST WITH 

FLOW 1 MOL RESULTS 


f 

{ 




FIGURE 4-22 H 2 0 TEMPERATURE COMPARISONS FOR 04-07-94 TEST WITH 

FLOW 1 MOL RESULTS 
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4.4.1.2 2DM0L Model Verification 

The determination of mass transfer coefficients and verification of the two-dimensional 
adsorption and desorption model, 2DMOL, is described in this section. 

Input data for the 2DMOL model for the 04-07-94 test are shown in Figures 4-23 and 4-24. The 
results of the model comparison are shown by the solid lines in Figures 4-25 and 4-26. As 
expected the center line breakthrough and temperature profile match the one-dimensional flow 
model. The average breakthrough at the midpoint and the outlet of the bed are shown. The model 
midpoint average is reasonably good, since the dispersion is moderate compared to the centerline 
breakthrough. There was no test data point for the average component partial pressure at the 
midpoint. This can not be done without the distortion of flow regime in the rest of the bed. 

The result of the model for the average breakthrough at the outlet shows an early breakthrough 
compared to test data for breakthrough of H20/N2- This can be attributed to several factors .The 
equilibrium isotherm, the porosity, and the radial diffusivity of H 2 O. This is also apparent from 
an early breakthrough at the centerline of the bed. Any small deviation in isotherm measurement 
causes an early/later breakthrough. The porosity variation effect is also a large contributor to the 
early average breakthrough. In this study, The wall porosity was taken as .85 as it was suggested 
in theoretical section. Monudin (1976) used a value of .54 in a packed reactor and had good 
model result with test data. Therefore, it is possible that a smaller porosity value should be taken. 
The third pa rame ter that affects the average breakthrough is the radial diffusion of H 2 O in the 
bed. Two different equations were used in this work to describe the radial diffusion as it 
described earlier. The equation by Fahien (1954) predicts the average breakthrough better and 
was used in this study. Even though this equation gave good result for the adsorption of CO 2 /N 2 , 
it is possible that it underestimates the water radial diffusivity. 

A mass transfer coefficient of .0035 was used to predict the breakthrough curve. Langmuir 
isotherm was used to predict H 2 O/N 2 isotherm. 
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Variable ! Description 


END I final time 


DELT time ste 


NJ Number of axial nodes 


INERT 


P TOT 


P C(1 



RO WA 


EPSEX 


AINT 


CP S 


RO S 


wzwnssi 


M W(2 


M W(3 


M W(4 


HEATH 


HEAT(2 


HEAT(3 


EHS2Q1 


K FM 



Inert oas (1 -N2: 2-He 


Total Inlet Pressure 


Inlet partial pressure 


Inlet partial pressure 


Inlet partial pressure 


Inlet partial pressure 


Bed ien 


External Diameter 


Inside Diameter 


Wall Densi 


void fraction (eta 


Interfacial Surface Area 


Pellet (solid) specific heat 


Pellet densi 


Molecular Weight 


Molecular Weight 


Molecular Weight 


Molecular Weight 


heat of adsorption 


heat of adsorption 


heat of adsorption 


heat of adsorption 


Mass Transfer Coefficent 


Mass Transfer Coefficent 


Mass Transfer Coefficent 


Mass Transfer Coefficent 


Units 


hours 


hours 


n/a 


n/a 


Current Value 


5 


0.00250 


51 


20 


DELZ 

distance between nodes 

feet 

0.01666666 

TAMB 

Ambient temperature 

°R 

532 

G F 

Volumetric flow rate 

CRH 

56.12 

TO 

Inlet temperature 

°R 

532 

NS 

Number of components 


2 



■ ■tiling 


I mm 


feet 


feet 


1 feet 


lbffl A 3 


dimless 


ft A 2/ft A 3 


BTITF-Ib 


lb/ft A 3 


Ib/ib-mol 


Ib/lb-mol 


Ib/lb-mol 


I Ib/lb-mol 


I BTU/lb-mole 


BTU/lb-mole 


BTU/lb-mole 


I BTU/lb-mole 


I ft/hr 


ft/hr 


1 Mir 


I Mir 


ERROR1 


ERROR2 



810.89 


0.00 


6.04 


804.85 


0.83333333 


0.1666667 


0.155833 


489 


0.35 


635 


0.25 


75 


44 


18 


28 


32 


-18000 


-28000 


-8988 


0.017 


0.0035 


0.05 


0.1 


0.00000001 


IE-09 


FIGURE 4-23 INPUT DATA SET "A” FOR 2DMOL COMPARISON WITH 04-07-94 TEST 
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Variable 

Description 

Units 

Current Value 

S B 

Cross sectional surface area 

ft A 3 

0.019069 

CP WA 

Wall specific heat 


0.109848 

RA 

not used 

feet 

0.00472441 

RAV 

not used 

feet 

0.0058 

RHDS 

not used 


75 

ALPHA1 

not used 


635 

R P 

Pellet radius 

feet 

0.0047244 

D P 

Pellet diameter 

feet 

0.0094488 

R 

Gas Constant 


10.73 

PI 



3.141593 

UINS 



0.354 

HWALL 



12 

N3 

Number of components 


2 

T FO 

1 same as TO 


537 

GD 



416975040 

CON SI 

1 


1 

NP 


i 

125 

PT 

same as PTOT 


789.42569 

LEN 

same as Z 


1 .66667 

VOID B 

same as EPSEX 


0.35 

IND(1) 



1 

IND(2) 



0 

IND(3) 



1 

IND(4) 



0 

IDES1 



0 

ISAT 



0 


FIGURE 4-24 INPUT DATA SET "B" FOR 2DMOL COMPARISON WITH 04-07-94 TEST 




MDC 95W5104 


September 1995 



FIGURE 4-25 H 2 0 BREAKTHROUGH COMPARISONS FOR 04-07-94 TEST WITH 

2DMOL RESULTS 



FIGURE 4-26 H 2 0 TEMPERATURE COMPARISONS FOR 04-07-94 TEST WITH 2DMOL 

RESULTS 
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4.5 Water and Carbon Dioxide Adsorption 
4.5.1 Molecular Sieve 5A 


Adsorb Data Sheet 

Start Time 


E33EMI 




Sorbent Material 

5a 

M 


■ 

Carner Gas 

N2 



t 

Sorbaie Gasjes) 

H20.CO2 

■ 


^■i 

Test Duration 

n 


Conductors) 

HM 


| Intat and initial Condition* 


GC Configuration 


Carrier Fiom Rate 

26.05 SLPM 


TCD Vent Flow 1: 

R* 2- 15- AAA 

C02 Fkj* Rate 

107.9 SCCM 


TCD Vent Flow 2: 

R-2-15-AAA 

inrL/FinaJ Wet DP 

4.5 degrees C 


Sample Flow @Fort 5: 

R-2-15-AA 

Wet H20 Mole % 

0.7945 



Detector Current 150 

mA 

Inlet ppH2D 

6.290476 

mmHfl 


Column Catalog No.: C-5000 

All tech Cat. 

In C02 % 

NA 



TCD/DETT Temp.: 120/130 

degrees C 

Inlet ppC02 

•VALUE! 

mmHg 


INJfCOLTemp.: 150/100 

degrees C 

Initial Bed Temp 


degrees F 


Valve Heat T emp. : 1 1 7 

degrees C 

Initial Ambient Temp 


degrees F 

Tomporaturoa: 


Final Ambient Temo 


degrees F 


T6 Location: Matl. outlet 


Bad Pressure*; 

with Port 6 flow to GC 

Til Location: Beads outlet 


Inlet Manifold Pressure 

15.26 

psia 


T1 2 Location: Ambient 


MatenaJ Wet Pressure 

15.31 

psia 


T1 4 Location: Beaker 


Material CL Pressure 

15.36 

psia 


T1 5 Location: Chiller 


Material Exit Pressure 

15.39 

psia 


Dl Location: Column exit 


DP Sensor Pressure 

14.74 

psia 


D2 Location: Column exit 






Cl Location: Column exit 


Ambient Pressure: 14.362 psia 


C2 Location: Column exit 



FIGURE 4-27 SPECIFICATIONS FOR 05-06-94 H 2 0/C0 2 ADSORPTION TESTING 

The test ran on 05-06-94 will be used to verify the FLOW1MOL and 2DMOL bed models for 
water and carbon dioxide adsorption. Test specifications are shown in Figure 4-27. 
Breakthrough for water is shown in Figure 4-28. Note, as in the previous tests, the discrepancy 
between breakthrough at the material exit measured at the centerline and after gas mixing 
(marked "matl outlet" and "column outlet" respectively). The extremely high affinity of zeolite 
5A is also evident in the time required for breakthrough. It is also evidenced by the fact that the 
presence of C0 2 is not evident by comparison of this figure with Figure 4-18, which shows water 
breakthrough for a similar test, except without C0 2 . 

Figure 4-29 shows the centerline bed temperatures for the test Note the early peaks resulting 
from CO 2 adsorption around 0.5 hours. 

Figure 4-30 shows the carbon dioxide breakthrough. The roll-up phenomenon is evident in this 
graph, wherein the weaker adsorbate (CO 2 ) is driven off the bed by the stronger (H 2 0), resulting 
in an outlet partial pressure greater than at the inlet. 
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05/06/94 H20*C02 on 5A 


• MilvWInWri 
mnul M3 

w* t»Jl | 


f 

1 

i 



FIGURE 4-29 CO 2 BREAKTHROUGH FOR 05-06-94 TEST 
4 .5.1.1 FLOW1MOL Model Verification 

The detennination of mass transfer coefficients and verification of the single material flow- 
through adsorption and desorption model, FLOW 1 MOL, is described in this section. 

Model inputs are shown in Figure 4-30 and 4-3 1 . Determination of appropriate values for each 
non-obvious input parameter is discussed below (values discussed in previous sections are 
neglected). 

Results of the model comparison are shown by the solid lines in Figures 4-32, 4-33, and 4-34. 
For breakthrough, the FLOW1MOL model compares well with test data at the midpoint. At the 
outlet, the model data (representing plug flow) falls, as expected, between the test data for the 
oudet at the centerline and the outlet following mixing. 

For temperatures, the comparison is also fairly good, especially during the heating of the column. 
As noted for N 2 /CO 2 adsorption, an early temperature peak corresponding to C02 adsorption is 
reflected by the model. In contrast to CO 2 adsorption, the temperature profile remains steady for 
a large time and suddenly decreases. The period of steady state temperature profile indicates the 
balance between the heat generated by heat of adsorption of H 2 O and the heat of desorption of 
CO 2 and N 2 and the heat transferring to the wall of the packed bed. The sudden decrease of 
temperature or the sharp breakthrough of E 2 O is the reflection of high affinity of water on 5A 
material This causes the adsorption of H 26 to occur in a short length of the bed, with little 
dispersion taking place. It is possible that in the case of water adsorption the assumption of 
equilibrium between the gas phase and solid phase is valid to a large extend. Mass transfer 
coefficients of .0035 ft/hr for H 2 0 and .017 ft/hr for C0 2 were used to predict the breakthrough 
curves. 

For carbon dioxide breakthrough, the comparison of model results and test data show that 
FLOW 1 MOL properly models the trends exhibited in coadsorption, that is, the roll-up 
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phenomenon observed earlier. Differences in magnitude are most likely due to the lack of 
accuracy in the equilibrium isotherms and the approximate nature of the multi-component 
isotherm equations. The accuracy is expected to improve as more precise isotherm data, 
particularly on multi-component adsorption, is received. The Langmuir isotherm for mixture of 
CO 2 and H 2 O was used which underestimates the loading of C02and H 2 O on 5A. The IAST 
predicts this loading much closer to the test data. Since the solution to the IAST isotherm is not 
analytical it is costly in terms of CPU usage. 


Variable 

Description 

Units I 

Default Value 

Current Value 

END 

final time 


3 

4 

DELT1 

time steo 

hours 

0.00100 

0.00300 

NJ 

Number of nodes 

n/a 

101 

61 

1 

distance Detween nodes 

feet 

0.0083333 

0.01388888 


Ambient temoerature 


532.5 

534.4 

G F 

Volumetric flow rate 

CFH 

62.82 

57.9 

T O 

Inlet temoerature 

oR 

532-5 

534.4 

NC 

Number of components 


2 

3 



n/a 

1 

1 


Total in let Pressure 

psia 

15.413 

15.26 


C02 Inlet oartial pressure 

osia 

0.059 

0.05647969 

BC C(2) 

H20 Inlet oartial pressure 

psia 

15.354 

0.12224371 

BC C(3) 

N2 Inlet oartial pressure 

osia 

0 

15.0812766 

BC C(4) 

02 Inlet partial pressure 


0 

0 

2 

Bed ienath 

feet 

0.83333333 ’ 

0.83333333 

D E 


feet 

0.1666667 

0.1666667" 

D 1 

Inside Diameter 

feet 

0.15625 

0.15625 

RO WA 

Wall Density 

lb/ft A 3 

489 

489 

B’SEX 

void fraction (eta) 

dim less 

0.373 

0.35 

AINT 

Interracial Surface Area 

tt i '2ytt A 3 

635 

635 

CON S 


BTU/°F- 

0.1 

0.1 


Pellet (solid) specific heat 

BTU/o^-tt) n 

02 

0.2 

Eini 

Heat transfer fluid to wall 


2.5 

2.5 

H OW 

Heat transfer outside to wall 


0.1 

0.1 

RO S 

Pellet density 

llb/ft A 3 

70 

75 

M W(1) 

Molecular Weiarit 

Ip/lb-mol 

44 

44 

M W(2) 

Molecular Weiaht 

llb/lb-mol 

28 1 

18 

M W(3) 

Molecular Weiaht 

|lb/lb-mol 

18 

28 

M W(4) 

Molecular Weiaht 

llb/lb-mol 

32 

32 

HEATm 

heat of adsorotion 


-17000 

-19000 

HEAT(2) 

heat of adsorption 


-8986 

-28000 

E&smrn 

heat of adsorption 


-6988 

-8988 


heat of adsorption 


-8988 

-8988 

1 nil— 

r'm-umil 11 ■ 1 III 1 liiMIBBII— — 

ft/hr 

0.025 

0.017 

K F(2) 

Mass Transfer Coefficent _ .... 

ft/hr 

0.05 

0.0035 

K Ff3) 

Mass Transfer Coefficent 

ft/hr 

0 

0.1 

K F (4) 

Mass Transfer Coefficent 

ft/hr 

0 

0 

IliMlHi 

Indicator for 002 present 



1 

IIIMSH 

Indicator for H20 present 



1 

IND(3) 

Indicator for N2 present 



1 

IHMOMI 

Indicator for 02 present 



HMHBI 


FIGURE 4-30 INPUT DATA SET "A" FOR FLOW1MOL COMPARISON WITH 05-06-94 

TEST 
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ILABEL(I) i 

Output Lapels 

1 "ppH20' 

'ddC02" 

LABEL(21 : 1 


"do N2" 

’doH20" 

LABEU3) j 


"gas T" 

"ppN2" 

LABEL(4) 1 \ 

1 tot P- 

*9 as T ' 

lAOUT(l) 

C array indices to output 


1 

1 

AOUT(2) i 


2 

2 

AOUT(3} 1 


6 

3 

AOUT(4) i 


11 

7 

IOUT(1) I 

Node locations to be output 


5 

2 

IOUT(2) 1 


10 

15 

IOUT(3) i 


30 

30 

IOUT(4) 1 


35 

45 

IOUT(5) 1 


60 

61 

S B l 

Cross sectional surface area 

CO 

< 

4= 

0.019175 

0.019175 

CON WA ! 


32.875 

32.875 

CON Wl Q 1 


0.291 

0.29 

CON Wl K! _ _ 


0.19 

0.19 

CP WA 1 


0.109848 

0.109848 

CP Wl Q ! 


<L21_ 

0.21 

CP Wl K 1 


0.21 

0.21 

RO Wl Q 



3.5 

3.5 

Iro Wl K 1 1 


16 

16 

X WA 

Canister Wall Thickness 

feet 

0.00541667 

0.00541667 

X Wl Q 

Q-felt insuttation thickness 

feet 

0.04166667 

0.04166667 

X Wl K 

K-fett insulation thickness 

feet 

0.02083333 

0.02083333 

RA 



0.00472441 

0.00472441 

rav 



0.00472441 

0.00472441 

EPSIN 



0.317 

0.317 

R-DS 



43 

43 

ALPHA 1 



5Z5_ 

5Z5_ 

R P 



0.00472441 

0.00472441 

D P 



0.00944882 

0.00944882 

BC LI 

boundary temperature for fluid 


532.5 

532 

BC L2 

boundary temperature for solid 


532.5 

532 

BC L3 

boundary temperature for canister wall 


532.5 

532 

BC L5 

fluid pressure at each grid(?) 


15.413 

15.68 

BC L6 



15.413 

15.68 

IN LI 

inlet temperature for fluid 


532.5 

532 

IN L 2 

inlet temperature for solid 


532.5 

532 

IN L3 

inlet temperature for canister wall 


532.5 

532 

IN L5 

fluid pressure at each aridf?^ 


15.413 

15.68 

IN L6 



15.413 

15.68 

R 

Gas Constant 


10.73 

10.73 

pi 



3.141593 

3.141593 

TEST 



0 

0 


FIGURE 4*31 INPUT DATA SET "B" FOR FLOW1MOL COMPARISON WITH 05-06-94 

TEST 
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f 

1 


7 

6 

6 

4 

3 

2 

1 

0 


05-06-94 Comparison 

C02 and H20 adsorption on zsollts 5A with Nltrogsn carrtsr gas 
Simulation rssults: solid Unas 
Experimental rssults: symbols 



FIGURE 4-32 H 2 0 BREAKTHROUGH COMPARISONS FOR 05-06-94 TEST WITH 

FLOW! MOL RESULTS 


05-06-94 Comparison 

C02 and K20 adsorption on zaollta 5A with Nltrogsn carrtar gas 
Simulation rssults: solid llnss 



0 12 3 


FIGURE 4-33 H 2 0/C0 2 TEMPERATURE COMPARISONS FOR 05-06:94 TEST WITH 

FLOW1MOL RESULTS 
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r 

i 


05-06-94 Comparison using Lang, isotherm (6/13) 

C02 and H20 adsorption on zeolite 5A with Nitrogen carrier gas 
Simulation results: solid lines 



Thus, Ham 


FIGURE 4-34 CO 2 BREAKTHROUGH COMPARISONS FOR 05-06-94 TEST WITH 

FLOW 1 MOL RESULTS 

4 .5.1.2 2DMOL Model Verification 

The determination of mass transfer coefficients and verification of the two-dimensional 
adsorption and desorption model, 2DMOL, is described in this section. 

Input data for the 2DMOL model for the 05-06-94 test are shown in Figures 4-35 and 4-36. 
Determination of appropriate values for each non-obvious input parameter is discussed below 
(values discussed in previous sections are neglected). 

Results of the model comparison are shown by the solid lines in Figures 4-37 and 4-38. As 
expected the center line breakthrough and temperature profile match the one dimensional flow 
model. The average breakthrough at the midpoint and the outlet of the bed are shown. The model 
midpoint average is reasonably good, since the dispersion is moderate compare to the centerline 
breakthrough. There was no test data point for the average component partial pressure at the 
midpoint. 

The result of the model for the average breakthrough at the outlet shows an early breakthrough in 
compared to the test data for breakthrough of H 2 O/N 2 . This can be attributed to several factors: 
the equilibrium isotherm, the porosity, and the radial diffusivity of H 2 O as were discussed in 
H 2 O/N 2 adsorption. 

The Langmuir isotherm was used to predict loading of the H 2 O/CO 2 mixture on 5A material. 
Langmuir isotherm for mixture of CO 2 and H 2 O underestimates the loading of CO 2 and H 2 O on 
5A. The LAST predicts this loading much closer to the test data. Since the solution to the LAST 
isotherm is not analytical it is costly in terms of CPU usage. 
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Variable i 

Description 

Units i 

Current Value 

END 1 

final time . 

hours 

2 

DELT i 

time step 

hours 

0.00250 

NJ 1 

Number of axial nodes . 

n/a 

51 

NJR 

Number of radial nodes 

n/a 

20 

DELZ 1 

distance between nodes 

feet 

0.01666666 

TAMB I 

Ambient temperature . 

°R 

534.4 


Volumetric flow rate 

CFH 

57.9 


Inlet temperature 

OR 1 

534.4 

ND 

Number of components 


3 

INERT 

Inert gas (1»N2: 2»He) 

n/a 

1 

P TOT ! 

Total Inlet Pressure 

mmHg 

789.26 

P CM) ! 

Inlet partial pressure 

mmHo 

2.92 


Inlet partial pressure 

mmHg 

6.31 


Inlet partial pressure 

mmHg 

779.94 

■3 n 

Inlet partial pressure 

mmHg 

0.00 


Bed lenath 

feet 

0.83333333 

In f 

External Diameter 

feet 

0.1666667 

\nwwmm 

Inside Diameter 

feet 

0.155833 

RO WA 

I Wall Density 

lb/ft A 3 

489 

EPSEX 

void fraction (eta) 

dimless 

0.35 

AINT 

Interfacial Surface Area 

ft A 2/ft A 3 

635 

CP S 

Pellet (solid) specific heat 

BTU/°F-lb 

0.25 

RO S 

Pellet density 

lb/ft A 3 

75 

M W(1) 

i Molecular Weight 

Ib/lb-mol 

44 

M W(2) 

Molecular Weight 

Ib/lb-mol 

18 

M W(3) 

Molecular Weight 

Ib/lb-mol 

28 

■na 

Molecular Weight 

Ib/lb-mol 

1 32 

HEAT(I) 

i heat of adsorption 

BTU/lb-mole 

-18000 

HEAT(2) 

! heat of adsorption 

BTU/lb-mole 

-28000 

HEAT(3) 

heat of adsorption 

BTU/lb-mole 

•8988 


heat of adsorption 

BTU/lb-mole 

f -8988 

K F(1) 

Mass Transfer Coefficent 

ft/hr 

0.017 

K F(2) 

Mass T ransfer Coefficent 

ft/hr 

0.0035 

K F(3) 

Mass T ransfer Coefficent 

ft/hr 

1 0.05 

K F(4) 

Mass T ransfer Coefficent 

ft/hr 

~ 0.1 

ERROR1 



I 0.00000001 

ERROR2 

. 


IE-09 


FIGURE 4-35 INPUT DATA SET "A" FOR 2DMOL COMPARISON WITH 05-06-94 TEST 
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Variable 

Description 

Units 

Current Value 

S B 

Cross sectional surface area 

CO 

< 

0.019069 

CP WA 

Wall specific heat 


0.109848 

RA 

not used 

feet 

0.00472441 

RAV 

not used 

feet 

0.0058 

RHOS 

not used 


75 

ALPHA1 

not used 


635 

R P 

Pellet radius 

feet 

0.0047244 

D P 

Pellet diameter 

feet 

0.0094488 

R 

Gas Constant 


10.73 

PI 



3.141593 

UINS 



0.354 

HWALL 




ND 

Number of components 


3 

T FO 

same as TO 


534.4 

GD 



416975040 

CON SI 



1 

NP 



125 

PT 

same as PTOT 


789.42569 

LEN 

same as Z 


1 .66667 

VOID B 

same as EPSEX 


0.35" 

IND(1) 



1 




1 

IND(3) 



1 

IND(4) 



0 

IDES1 


. . 

0 

ISAT 

! 

i 


0! 


FIGURE 4-36 INPUT DATA SET "B" FOR 2DMOL COMPARISON WITH 05-06-94 TEST 






WCO*«-H, 



FIGURE 4-37 CO 2 BREAKTHROUGH COMPARISONS FOR 05-06-94 TEST WITH 

2DMOL RESULTS 



FIGURE 4-38 H 2 0/C0 2 TEMPERATURE COMPARISONS FOR 05-06-94 TEST WITH 

2DMOL RESULTS 
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05-06*94 Comparison with 2DMOL Model 
H^O and CO a Adsorption on 5A with carrier gas 


average data: solid lines 
test data: symbols 
centerline data: dashed lines 



o 2 4 6 S 10 


FIGURE 4-39 H 2 O/CO 2 BREAKTHROUGH COMPARISONS FOR 05-06-94 TEST WITH 

2DMOL RESULTS 
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4.6 Carbon Dioxide Desorption 
4.6.1 Molecular Sieve 5A 


Strip Desorb Data Sheet 


Stan Time 
Sorbent Materiel 


Data Foe: 
Notes: 

01/27/94 C02 13x St no 

■■■■■ 

5A 



Carrier Gas 
Sorbate Gas<es) 
Test Duration 
Conduct oris) 

N2 

Desorption of 01/26/64 test 







JG 

1 

Inlot and Inftiat Conditions 


GC Configuration 


Carrier Row Rate 

28.04 SLPM 


TCD V«nt Flow 1 

8 R-2-15-AAA 

COSRowRtfe 

90CM 


TCD Vent Row 2 

9.7 R*2-15*AAA 

WURnel Into OP 


degrees C 


Sample Flow ^Port 5 

11 R-2-15-AA 

Inlet H20 Mote % 




Detector Current 

150 mA 

inlet ppK20 


mmHg 


Column Catalog No. 

C-5000 Aitech Cat. 

In C02K. 




TCD/DETT Temp. 

120/130 degress C 

inlet ppCC2 

Need Date 

mmHg 


INJ/COL Temp. 

150/100 degrees C 

InttaJ Bed Temp 

77 degreesF 


Valve Heat Temp. 

117 decrease 

Initial Ambient Temp 

77 degreesF 

Tomporaturos: 


I Final Ambient Temo 

77 



T6 Location 

Mall, exit opp. screen 

Bod Pressure#: 

with Port 6 flow to GC 

Til Location 

Exit in Beads 

Inlet Manifold Pressure 

15.587 

psia 


T12 Location 

Ambient 

Material Inlet Pressure 

15.348 psia 


T14 Location 


Material CL Pressure 

15312 pelt 


T15 Location 

Insulation Skin 

Material Ext Pressure 

15365 peia 


D1 Location 

Column exit 

DP Sensor Pressure 

1532 

peia 


D2 Location 

Column exit 





Cl Location 

Column exit 

1 Ambient Pressure: 

2*2 


C2 Location 

Column exit 


FIGURE 4-40 SPECIFICATIONS FOR 01-27-94 CO 2 DESORPTION TESTING 

The test ran on 01-27-94 will be used to verify the FLOW1MOL and 2DMOL bed models for 
carbon dioxide desorption. Test specifications are shown in Figure 4-40. Breakthrough for CO 2 
and temperatures will be shown in the comparative plots in the following sections. 

4.6.1.1 FLOW1MOL Model Verification 

The determination of mass transfer coefficients and verification of the single material flow- 
through desorption and desorption model, FLOW 1 MOL, is described in this section. 

Model inputs are shown in Figure 4-41 and 4-42. 

Results of the model comparison are shown by the solid lines in Figures 4-43 and 4-44. After the 
bed was saturated with CO 2 , the regeneration process was started by using N 2 as the purge gas. As 
it is shown the effluent CO 2 concentration has a sharp drop in the first few minutes and the slope 
of the breakthrough flattens out as time goes by. The initial drop in temperature is due to heat of 
desorption and finally reaches the inlet condition when there is no depletion of CO 2 from the bed. 
The same mass transfer coefficient of .017 was used. Model predictions' of temperature and 
breakthrough agree well with test data. The IAST was used to predict the mixture isotherm of 
CO 2 /N 2 . 
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Variable 


DescriDtion 


BD 

1 final time 

! hours 

i : 


EPSEX 


AINT 


CON S 


CP S 


H FW 


H OW 


RO S 


IMS 


M W(2) 


M W 


■3ES01 


HEATH 


HEAT/2) 


HEAT(3 


void fraction (eta) 


Interfacial Surface Area 


Pellet (solid) conductivi 


Pellet (solid) specific heat 


Heat transfer fluid to wall 


Heat transfer outside to wall 


Pellet densi 


K F(1 


K_F(2) 


K F(3 


K F(4) 


IND(1 


KSl 


Molecular Weight 




I Molecular Weiaht 


I heat of adsorption 


I heat of adsorption 


I heat of adsorption 


I heat of adsorption 


1 Mass Transfer Coefficent 


I Mass Transfer Coefficent 


1 Mass Transfer Coefficent 


I Mass Transfer Coefficent 


1 Indicator for C02 present 




Indicator for 02 present 


Default Value I Current Value 


2 


0.001 OC 0.00300 


NJ 

Number of nodes 

n/a 

101 

51 

DELZ1 

distance between nodes 

feet 

0.0083333 

l 0.016666 



rc 

Number of components 


2 

2 

INERT 

Inert qas (1-N2; 2»He) 

n/a 

1 

1 

P TOT 

Total Inlet Pressure 

psia 

15.413 

15.265 

BC C(1] 

C02 Inlet partial pressure 

psia 

0.059 

0.1185348 

BC C(2! 

1 H20 Inlet partial pressure 

psia 

15.354 

0 

BC C(3! 

l N2 Inlet partial pressure 

psia 

0 

15.265 

BC C(4] 

1 02 Inlet partial pressure I 

psia 

0 

0 

Z 

1 Bed length i 

feet 1 

0.83333333 

0.83333333 



lb/ft A 3 


dimless 


ft A 2/ft A 3 


BTU/°F- 


BTU/°F-lb 


lb/ft A 3 


4891 


0.3731 


6351 


0.1 


0.2 


2.5 


0.1 


70 1 


Ib/lb-mol 


Ib/lb-mol I 


BTU/lb-mole 


BTU/lb-mole I 


BTU/lb-mole I 


BTU/lb-mole I 


ft/hr 


ft/hr 


ft/hr 


ft/hr 


32 


-17000! 


•8988 


8988 


-89881 


0.025! 


0.05 



Molecular Weight 

Ib/lb-mol 

441 44 


32 


-18000 


-28000 


-8988 


-8988 


0.017 


0.0035 


0.05 


IDES1 

Flag to indicate if bed ungoing desorption 




ISAT I Flag to indicate prior saturation of bed I I ! 1 


FIGURE 4-41 INPUT DATA SET "A" FOR FLOW1MOL COMPARISON WITH 01-27-94 

TEST 
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IOUT(4 


IOUT(5 


S B 


CON WA 


CON Wl Q 


CON Wl K 


CP WA 


CP Wl Q 


i Cross sectional surface area 


30 


35 


60 


0.0191751 


32.875 


0.291 


0.191 


0.109848 


0.211 


CP Wl K 



021 

RO Wl Q 



3.5 

RO Wl K 



16 

X WA 

Canister Wall Thickness 

feet 

0.00541667 

X Wl Q 

Q-felt insultation thickness 

feet 

0.04166667 

X Wl K 

K-felt insulation thickness 

feet 

0.02083333 

RA 



0.00472441 

RAV 



0.00472441 

EPSIN 



0217 

RH0S 



43 


1 


25 


35 


51 


0.019175 


32.875 


0.29 


0.19 


0.109848 


0.21 


0.21 


16 


0.00541667 


0.04166667 


0.02083333 


0.0045893 


MWEMEH 


0.317 


43 



BC LI 


BC L2 


BC L3 


BC L5 


BC L6 


IN LI 


IN L2 


IN L3 


boundary temoerature for fluid 


boundary temoerature for solid 


boundary temoerature for canister wall 


fluid oressure at each aridf?) 


inlet temoerature for fluid 


inlet temoerature for solid 


inlet temoerature for canister wall 




IN L6 


R 


PI 


fTEST 


Gas Constant 


532.5 


532.5 


532.5 


15.413 


15.413 


532.5 


532.5 


532.5 


15.413 


15.413 


10.73 


3.141593 


537 


537 


532 


15.265 


15.265 


537 


537 


537 


15.265 


15.265 


10.73 


3.141593 


FIGURE 4-42 INPUT DATA SET "B" FOR FLOW1MOL COMPARISON WITH 01-27-94 

TEST 
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FIGURE 4-43 CO 2 BREAKTHROUGH COMPARISONS FOR 01-27-94 TEST WITH 

FLOW 1 MOL RESULTS 



FIGURE 4-44 CO 2 TEMPERATURE COMPARISONS FOR 01-27-94 TEST WITH 

FLOW 1 MOL RESULTS 
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4.6.1.2 2DM0L Model Verification 

The determination of mass transfer coefficients and verification of the two-dimensional 
desorption model, 2DMOL, is described in this section. 

Input data for the 2DMOL model for the 01-27-94 test are shown in Figures 45 and 46. 

Results of the model comparison are shown by the solid lines in Figures 4-47 and 4-48. The 
model prediction of centerline and average breakthrough matches the obtained experimental data. 
The temperature profile result of the two dimensional model also estimates the experimental data 
fairly well. The few degree discrepancy between the model and experimental data is largely due 
to thermal conductivity profile estimation which has a strong effect on radial temperature profile. 
Trial and error must be used in order to obtain a corrected thermal conductivity equation. The 
IAST was used to predict the CO 2 /N 2 mixture isotherm. A mass transfer coefficient of .017 ft/hr 
was used for the prediction of breakthrough curve. 


1 Variable 1 Description \ 

Units 1 Current Value 1 

BO 

final time J 

hours 

2 

DELT 


hours 

0.00250 

NJ 

Number of axial nodes 

n/a 

51 

NJR 

Number of radial nodes 

n/a 

20 

DELZ 

distanoe between nodes 

feet 

. 0.01666666 

ETTTTilMB 

Ambient temperature 

•R 

537 


Volumetric flow rate 

cm 

55.6 

TO 

inlet temperature 

•R 

537 

IO 

Number of components 


2 

INERT 

Inert qas (1»N2: 2»He) 

n/a 

1 

P TOT 

Total Inlet Pressure 

mmHg 

789.43 

p cm 


mmHg 

6.13 



mmHg 

0.00 

con 

Inlet partial pressure 

mmHg 

783.30 


Inlet partial pressure 1 

mmHg 

0.00 


Bed lenqth 

feet 

0.83333333 

D E 

External Diameter 

feet 

0.1666667 

D 1 

Inside Diameter 

feet 

0.155833 

RO WA 

Wall Density 

lb/ft A 3 

489 

EPSEX 

void fraction (eta) 

dimless 

0.35 

AINT 

Interfacial Surface Area 

ft A 2/ft A 3 

635 

CP S 

Pellet (solid) specific heat 

BTU/*F-lb 

0.25 

RO S 


lb/ft A 3 

75 

m wm 

Molecular Weight 


44 

M W(2) 

Molecular Weiqht 

Ib/lb-mol 

18 

lKiv/« 

Molecular Weight 

Ib/lb-mol 

28 

I M W(4) 

Molecular Weiqht 

Ib/lb-mol 

32 

lui^roa 

heat of adsorption 

BTU/lo-mole 

-18000 

HEAT(2) 

heat of adsorption 

BTU/lb-mole 

-28000 

HEAT(3) 

heat of adsorption 

BTU/Jb-mole 

•8988 


heat of adsorption 

BTU/lb-mole 

•8988 

m i m h ib 

Mass T ransfer Coefficent 

ft/hr 

0.017 


Mass Transfer Coefficent 

ft/hr 

0.0035 

K F(3) 

Mass Transfer Coefficent 

ft/hr 

0.05 

nn 

Mass Transfer Coefficent 

ft/hr 

0.1 

1 1 M 



0.00000001 

ERROR2 



IE-09 


FIGURE 4-45 INPUT DATA SET "A" FOR 2DMOL COMPARISON WITH 01-27-94 TEST 
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Variable 

Description 

Units 

Current Value 

S B 

Cross sectional surface area 

ft A 3 

0.019069 

CP WA 

Wall specific heat 

0.109848 

RA 

not used 

feet 

0.00472441 

RAV 

not used 

feet 

0.0058 

RHDS 

not used 


75 

ALPHA1 

not used 


635 


Pellet radius 

feet 

0.0047244 


Pellet diameter 

feet 

0.0094488 

R 

Gas Constant 


10.73 

PI 



3.141593 

UINS 



0.354 

HWALL 



12 

N2 

Number of components 


2 

T FO 

same as TO 


537 

QD 



416975040 

CON SI 



1 

NP 



125 

PT 

same as PTOT 


789.42569 

LEN 

same as 2 


1 .66667 

VOID B 

same as EPSEX 


0.35 

IND(1) 



1 

IND(2) 



0 

IND(3) 



1 

BMEHI 



^^■11 

IDES1 



0 

ISAT 



1 


FIGURE 4-46 INPUT DATA SET ”B" FOR 2DMOL COMPARISON WITH 01-27-94 TEST 
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FIGURE 4-47 CO 2 BREAKTHROUGH COMPARISONS FOR 01-27-94 TEST WITH 

2DMOL RESULTS 


75 


70 


«0 


FIGURE 4-48 CO 2 TEMPERATURE COMPARISONS FOR 01-27-94 TEST WITH 2DMOL 

RESULTS 
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4.7 Water Desorption 
4.7.1 Molecular Sieve 5A 


Strip Desorb Data Sheet 

1 Starr Time: 

Daa File: 

04/19/94 desorb H20 from 13x. 04/19/94 stno H2Q on 13x GC || 

Sorbent Malarial: 

13x 





II 

Carrier Gas: 

N2 

No»s: 

Desorption of bed saturated on 4/18/94 at 163 mmHg H2Q || 

Sortoaze Gasjes): 

rva 


Calibration data from 4/18 used for mis test. 

ii 

Teat Duration: 

4.2 hours 


Conductors): 

HM 


[ InM and Initial Conditions 



QC Configuration 



Carrier Flow Rate: 

28.04 SLPM 


TCDVent Flow 1: 


R-2-15-AAA 

Inlet Temperature 

70 degrees F 


TCD Vent Flow 2: 


R-2-15-AAA 

Init/FInal Wet DP: ~ 


degrees C 


Sample Flow ®>Port 5: 


R-2-15-AA 

WetH20Mo*%:" 




Detector Current 

150 

mA 

Wet ppH20: 


mmHg 


Column Catalog No j 

05000 

Alltech Cat 

mC02%:“ 




TCCVDETTTemp.: 

120/130 

degrees C 

Wet ppC02: 


mmHg 


INJ/COL Temp.: 

150/100 

degrees C 

Initial Bed Temp: 


degrees F 


Valve Heat Temp.: 

117 

degrees C 

hnitei Ambient Temp: 


degrees F 


Tomporaturoa: 



Final Ambient Temp: 


degrees F 


T6 Location: 



Bod Proas urws: 

with Port 6 flow to GC 


Til Location: 



Wet Manltold Pressure: 

15.65U.188 

psia 


T12 Location: 

Ambient 


Material Inlet Pressure: 

15.65+.188 

psia 


T14 Location: 



Material CL Pressure: 

i5.57S4-.iae 

psla 


T15 Location: 



Material Exit Pressure: 

153424-. 188 

psla 


D1 Location: 

Mixed 


DP D1 Sensor Pressure: 

15.0664-. 188 

psia 


D2 Location: 

Midooint 


DP D2 Sensor Pressure: 

15.0064-. 188 psia 


Cl Location: 



Ambient Pressure: 

143054-. 183 

psia 


C2 Location: 



H20 Calibration: 











Curve Fit 

T1 Location: 


Low Dewootrrt 


H20 Area 

N2 Area 

Partial Pressure 

T2 Location: 

Material inlet 

0 1 

Sample 1: 

11208 

2718544 

436 

T3 Location: 

Mtooomt 

degrees C 

Sample 2: 

11370 

2719964 

mm Hg 

T4 Location: 

Material exit 






T5 Location: 


Medium Dewpoint 


H20 Area 

N2 Area 

Partial Pressure 



9.9 | 

Sample 1: 

21651 

2703569 

9.15 



degrees C 

Sample 2: 

22061 

2702918 

mm Hg 



Ugh Dewooint 


H20 Area 

N2 Area 

Partial Pressure 



18.6 1 

Sample 1: 

37971 

2678608 

16.07 



Oppress C 

Sample 2: 

37415 

2680533 

mmHg 










Total Pressure: £ 

14.664 

psia 












H20GCCafFaaor[ 

13025 













Detection Peak Time: f 


Minutes 






FIGURE 4-49 SPECIFICATIONS FOR 04-19-94 H20 DESORPTION TESTING 

The test ran on 04-19-94 will be used to verify the FLOW1MOL and 2DMOL bed models for 
water desorption. Test specifications are shown in Figure 4-49. Breakthrough for H20 and 
temperatures will be shown in the comparative plots in the following sections. 
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4.7.1.1 FL0W1M0L Model Verification 

The determination of mass transfer coefficients and verification of the single material flow- 
through desorption and desorption model, FLOW 1 MOL, is described in this section. 

Model inputs are shown in Figures 4-50 and 4-51. Results of the model comparison are shown by 
the solid lines in Figures 4-52 and 4-53. The results of the partial pressure of H 2 O and 
temperature profile of 1-D desorption model are not in good agreement with the test data. The 
model shows a fast reduction of H 2 O partial pressure in the gas phase. A mass transfer 
coefficient as large as .04 ft/hr, in contrast with .0035 ft/hr in the case of H 2 O adsorption, was 
used. However, there shouldn't be such a large difference mass transfer coefficients in 
adsorption versus desorption process for the same component Even with this large mass transfer 
coefficient , the desorption of H 2 O from die bed was not enough to increase the H 2 O partial 
pressure in the gas phase. In contrast with adsorption process, any small discrepancy of H 2 O 
partial pressure with test data will remain as an error throughout die completion of the test In 
adsorption any small error at any point in the bed, if it caused by the isotherm at some partial 
pressure of the feed will be eliminated at a later time because of the correct value of isotherm at a 
larger partial pressure of the feed. This can be seen from the early breakthrough of most works 
done by previous researchers, (Hirpyuki, et al 1982, Rice, 1982). The obvious reason is that the 
equilibrium isotherm at low partial pressures are being underestimated. It is also possible that 
the adsorption/desorption of H 2 O on 5A material could be modeled based on the assumption of 
equilibrium, where there is no resistance between the two phases. The other possible source of 
error is how the H 2 O partial pressure was measured. Perhaps a more sensitive instrument should 
have been used in the test 
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Variable 

Description 

Units 

Default Value 

Current Value 

END 

\ final time 

hours 

3 

2 

DELT1 


hours 

0.00100 

0.00300 

NJ 

Number of nodes 

n/a 

101 

51 

DELZ1 

distance between nodes 

feet 

0.0083333 

0.016666 

TO 

Ambient temoerature 

'R 

532.5 

531 

G F 

Volumetric flow rate 

CFH 

62.82 

55.26 

TO 

Inlet temperature 

rR 

532.5 

531 

NC 

Number of components 


2 

2 

INERT 

Inert gas (1-N2; 2-He) 

n/a 

1 

1 

P TOT 

Total Inlet Pressure 

mm 

15.413 

15.55 

BC C(1) 

C02 Inlet partial pressure 

psia 

0.059 


BC C(2) 

H20 Inlet partial pressure 

psia 

15.354 

0.3132568 

BC C(3) 

N2 Inlet partial pressure 

psia 

0 

15.55 



osia 

0 

0 

z 

Bed lenath 

feet 

0.83333333 

0.83333333 

D E 

External Diameter 

feet 

0.1666667 

0.1666667 

D 1 

Inside Diameter 

feet 

0.15625 

0.15625 

RO WA 

Wall Density 

lb/ft A 3 

489 

489 

EPSEX 

void fraction (eta) 

dimless 

0.373 

0.35 

AINT 

Interfacial Surface Area 

ft A 2/ft A 3 

• 635 

635 

CONS 

Pellet (solid) conductivity 

BTU/°F- 

0.1 

0.1 

CP S 

Pellet (solid) specific heat 

BTU/*F-lb 

0.2 

0.25 

H FW 

Heat transfer fluid to wall 


2.5 

2 

H OW 



HHHEn 

0.1 

RO S 

Pellet density 

lb/ft A 3 

70 

75 

KEZZOW 

Molecular Weight 

Ib/lb-mol 

44 

44 

M W(2) 

Molecular Weiqht 

Ib/lb-mol 

28 

18 

M W(3) 

Molecular Weiqht 

Ib/lb-mol 

18 

28 

MSKMM 

Molecular Weight 

Ib/lb-mol 

32 

32 

HEAT(1) 

heat of adsorption 

BTU/lb-mole 

-17000 

-18000 

cm 



-8988 

-28000 

HEAT(3) 

heat of adsorption 

BTU/lb-mole 

-8988 

-8988 

HEAT(4) 

heat of adsorption 

BTU/lb-mole 

-8988 

-8988 

K_F(1) 1 

Mass Transfer Coefficent 

ft/hr 

0.025 

1 0.017 

WE®m 

Mass Transfer Coefficent 

ft/hr 

0.05 

0.02 

K F(3) 

Mass Transfer Coefficent 

ft/hr 

0 

0.05 

K F(4) 

Mass Transfer Coefficent 

ft/hr 

0 


IND(1) 

Indicator for C02 present 




IND(2) 

Indicator for H20 present 



i 

IND(3) 

Indicator for N2 present 



i 

IND/4) 




0 

IDES1 

Flag to indicate if bed unooing desorption 




ISAT 1 

Flag to indicate prior saturation of bed 



u 


FIGURE 4-50 INPUT DATA SET "A” FOR FLOW1MOL COMPARISON WITH 04-19-94 

TEST 
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LABEL(I) I Output Labels 


LABEU2) 



:02' 

’00 N2’ 

■ppl 

M2’ 



dUIP 


AOUTM 


IOUT(1 


IOUT(2 


IOUT(3 



IOUT(5) 



60 

51 

S B 

Cross sectional surface area 

ft A 3 

0.019175 

0.019175 

CON WA 



32.875 

32.875 

CON Wl Q 



0.29 

0.29 


nm 


CP WA 



0.109848 

0.109848 

CP Wl Q 



0.21 

0.21 

CP Wl K 



0.21 

0.21 

TzfSW r 7IWSU 




3.5 

RO Wl K 



16 

16 

X WA 

Canister Wall Thickness 

feet 

0.00541667 

0.00541667 

X Wl Q 

Q-felt insultation thickness 

feet 

0.04166667 

0.04166667 


X Wl K 


K-felt insulation thickness 


0.020833331 


0.02083333 




RAV 


EPSIN 


RKDS 


ALPHA1 


0.00472441 


0.317! 


43 


5751 


III 1 ! "IMI " "II 


0.0091785 


0.317 


43 


575 


D P 


BC LI 


BCL2 


boundary temperature for fluid 


boundary temperature for solid 




0.00944882 


532.5 


532.5! 


0.00944882 


531 


531 


BC L5 

fluid pressure at each grid(?l 

1 


15.413 

BC L6 



15.413 

IN LI 

inlet temperature for fluid 


532.5 

IN L2 

inlet temperature for solid 


532.5 



mui i ' iii him ii'iiiiM 


IN L6 


R 


PI 


ITEST2 


ITEST1 


Gas Constant 


15.413 


15.413 


10.73! 


3.141593 


15.55 


15.55 


10.73 


3.141593 


FIGURE 4-51 INPUT DATA SET "B” FOR FLOW1MOL COMPARISON WITH 04-19-94 

TEST 
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FIGURE 4-53 TEMPERATURE COMPARISONS FOR 04-19-94 TEST WITH FLOW1MOL 

RESULTS 
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4.7.1.2 2DM0L Model Verification 

The determination of mass transfer coefficients and verification of the two-dimensional 
desorption and desorption model, 2DMOL, is described in this section. 

Input data for the 2DMOL model for the 04-19-94 test are shown in Figures 4-54 and 4-55. 
Results of the model comparison are shown by the solid lines in Figures 4-56 and 4-57. The 
results of the partial pressure of H 2 O and temperature profile of 2-D desorption model are better 
than the 1-D model. The model shows a fast reduction of H 2 0 partial pressure in gas phase as in 
1-D model, but much closer to the test data. A mass transfer coefficient of .0035 ft/hr was 
chosen as in the case of H 2 0 adsorption. The same argument can be made as in 1-D on the 
discrepancies between model results and the test data. However, since the 2-D results are in 
better agreement with the test data, one can conclude the significant effect radial dispersion has 
on the adsorption/desorption of H 2 0 on the 5A material. More study and accurate testing are 
needed in the case of water desorption on 5A material. 


Variable 

Description 1 

Units 

Current Value 

END 

final time 

hours 

5 

DELT 

time step 

hours 

0.00250 

NJ 

Number of axial nodes 

n/a 

51 

NJR 

Number of radial nodes 

n/a 

20 

DELZ 

distance between nodes 

feet 

0.01666666 

TAMB 

Ambient temperature 

°R 

532 

G F 

Volumetric flow rate 

CFH 

56.12 

TO 

Inlet temoerature 

•R 

532 

ND 

Number of components 


2 

INERT 

Inert gas (1»N2; 2-He) 

n/a 

1 

P TOT 

Total Inlet Pressure 

rTiTinQ 

837.78 

P C(1) 

Inlet partial pressure 

r^vmmta 

0.00 

■ 1 'i 11 

Inlet partial pressure 


16.20 

wxxm 

Inlet partial pressure 


821.58 

EJGEH 

Inlet partial pressure 

IS9HI 

0.00 


Bed length 

feet 

0.83333333 

D E 

External Diameter 

feet 

0.1666667 

D 1 

Inside Diameter 

feet 

0.155833 

RO WA 

Wall Density 

fo/tt A 3 

489 

EPSEX 

void fraction (eta) 

dimless 

0.35 

AINT 

Interfacial Surface Area 

ft A 2/lt A 3 

635 

CP S 

Pellet (solid) specific heat 

BTU/°F-lb 

0.25 

RO S 

■ 111 Him i^—— ■ 

km* 3 

75 

M W(1) 

Molecular Weight 

lb/lb-mol 

44 

M W(2) 

Molecular Weight 

Ib/lb-mol 

18 

M W(3) 

Molecular Weight 

lb/lb-mol 

28 

M W(4) 

Molecular Weight 

Ib/lb-mol 

32 

HEATO) 

heat of adsorption 

BTU/lb-mole 

-18000 

HEAT(2) 

heat of adsorption 

BTU/lb-moie 

-2B000 

m 

heat of adsorption 

BTU/lb-mole 

-8988 


heat of adsorption 

BTU/lb-mole 

•8988 

K F(1) 

Mass T ransfer Coeff icent 

ft/hr 

0.017 

K F(2) 

Mass Transfer Coeff icent 

ft/hr 

0.004 

K F{3) 

Mass Transfer Coeff icent 

ft/hr 

0.05 

K F(4) 

Mass Transfer Coeff icent 

ft/hr 

0.1 

ERROR1 



0.00000001 

ERROR2 



IE-09 


FIGURE 4-54 INPUT DATA SET "A" FOR 2DMOL COMPARISON WITH 04-19-94 TEST 
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Variable 

Description 

Units 

Current Value 

S B 

Cross sectional surface area 

ft A 3 

0.019069 

CP WA 

Wall specific heat 

0.1098481 

RA 

not used 

feet 

0.00472441 

RAV 

not used 

feet 

0.0058 

RHSS 

not used 


65 

ALPHA1 

not used 


635 

R P 

Pellet radius 

feet 

0.0047244 

D P 

Pellet diameter 

feet 

0.0094488 

R 

Gas Constant 


10.73 

PI 



3.141593 

UINS 



0.354 

HWALL 



12 

NC 

Number of components 


2 

T FO 

same as TO 


532 

GD 



416975040 

CON SI 



1 

NP 



125 

PT 

sameasPTOT 


837.7789 

LEN l 

same as Z 

! 

1 .66667 

VOID B 

1 same as EPSEX 


0.35 

IND(1) 



0 

IND(2) 



1 

IND(3) 



1 

IND(4) 



0 

IDES1 



0 

ISAT 



1 


FIGURE 4-55INPUT DATA SET "B" FOR 2DMOL COMPARISON WITH 04-19-94 TEST 
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FIGURE 4-56 BREAKTHROUGH COMPARISONS FOR 04-19-94 TEST WITH 2DMOL 

RESULTS 



FIGURE 4-57 TEMPERATURE COMPARISONS FOR 04-19-94 TEST WITH 2DMOL 

RESULTS 
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4.8 FL0W3M0L MODEL RESULTS 


The FLOW3MOL model represents the 4BMS desiccant beds, with the capability to model three 
different layers of sorbent material stacked in a single packed bed. The FLOW3MOL model was 
run for demonstration purposes configured for a packed column of the approximate size of the 
MSMBT apparatus. No reliable test data is currently available to compare these results with, so 
they are presented without comparison. 

Figure 4-58 shows results from the FLOW3MOL model run for CO 2 breakthrough. The location 
of the breakthrough points are at the end of 13X, middle of Silica gel, end of Silica gel, middle of 
13X and end of 13X materials. As can be seen the CO 2 breakthrough occurs very fast for the 
first section of bed because of presence of water. No CO 2 adsorption takes place on Silica gel 
mater ial CCb is desorbed on the last section of the bed, 13X. Since for some penod of time all of 
the H 2 0 would be adsorbed on Silica gel, flow passes to the last section of the bed without water. 
This gives the opportunity for CO2 being adsorbed there. As silica gel is saturated with H 2 U, 
water will pass to the 13X and this cause the roll-up of CO 2 . 


Figure 4-59 shows results from the FLOW3MOL model run for H 2 0 breakthrough. It can be 
seen the H 2 0 breakthrough at the exit of Silica Gel material is sharp at low partial pressure and 
disperse at higher partial pressure of H 2 0. This is caused by the Silica gel equilitaium isotherm 
which dose not have high affinity for H 2 0 at low partial pressure in compare to 13X. However it 
has more capacity for adsorption at higher partial pressures of H 2 0. 


Figure 4-60 shows results from the FLOW3MOL model run for temperature. The figure shows 
the sharp increase and decrease of temperature at the beginning of the bed as it expected and a 
steady temperature for sometime on 13X section which is the same profile as in 13X-sing e bed. 


FLOW3MOL Model RmuIM 
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FIGURE 4-58 CARBON DIOXIDE BREAKTHROUGH RESULTS FOR FLOW3MOL 
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4.9 VACMOL Model Results 

The VACMOL model represents the 4BMS 5A sorbent beds, with the capability to model 
thermal/vacuum desorption for a packed bed. The VACMOL model was run for demonstration 
purposes configured for a packed column of the approximate size of the 5 A sorbent beds in the 
Life Test 4BMS. No reliable test data is currently available to compare these results with, so 
they are presented without comparison. 

Figure 4-61 shows temperature prediction results from the VACMOL model. The constant heat 
input into the vacuum chamber causes a steady rise of temperature as time progresses. 

Figure 4-62 shows results from the VACMOL model run for H 2 O and CO 2 partial pressures. 
Initially the bed is saturated with CO 2 , H 2 O, and N 2 . at atmospheric pressure and temperature. In 
order to simulate the actual bed performance a pressure boundary condition of 25 mm Hg was 
chosen. The sudden decrease in pressure is caused by outflow of N 2 . The parual pressure ot LU 2 
and H 2 O start rising as heat being input to the vacuum chamber. Since CO 2 is less adsorbent 
than H 2 O, it starts coming off the bed sooner and depleted off the bed in very short time. 

Figure 4-63 shows results from the VACMOL model run for total pressure. A sudden decrease in 
total pressure to the boundary condition value is an indication that pressure is being transferred 
along the bed in very short time. After a minima, the pressure start rising because of desorption 
of CO 2 and H 2 O from the bed as temperature increases. 

The model is written in a such a way that any velocity, caused by differential pressure, will not 
exceed the choke velocity. As shown in Figures 4-64 and 4-65, the velocity profile starts from a 
very high value, because of large pressure gradient along the bed, to a minima after a very short 
time. The mi nima corresponds to a minima of pressure gradient in the bed. The velocity starts 
rising as C0 2 and H 2 0 are desorbed off the bed. This makes the pressure increase inside ot the 
bed, creating a differential pressure with the boundary pressure. Given the profile of pressure and 
velocity along the bed, it is reasonable to say that variation of these two variables along die bed 
is not significant. For simulation of the actual 4BMS a lumped velocity and pressure could be 
used. 
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FIGURE 4-62 PARTIAL PRESSURE RESULTS FOR VACMOL 



FIGURE 4-63 TOTAL PRESSURE RESULTS FOR VACMOL 
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FIGURE 4-64 VELOCITY RESULTS FOR VACMOL 




FIGURE 4-65 VELOCITY RESULTS FOR VACMOL (FIRST 0.25 HOURS) 
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SECTION 5 

CONCLUSIONS AND RECOMMENDATIONS 


5.1 Conclusion 

Based on analytical and experimental investigation of convective flows in porous media the 

following conclusions are drawn: 

1. The experimental results from the laboratory scale-fixed bed adsorber are quantitatively 
consistent with the one-dimensional model at the column center. The average 
concentration of cross sectional bed obtained by test result deviates from the column 
center concentration appreciably. This indicates the strong effects of porosity variation 
along the radial direction of column bed on the temperature, concentration, and velocity 
field. These observations resulted in the decision to model the dynamic behavior of the 
column in two-dimensions. 

2. The two-dimensional model demonstrates the importance of non-darcian momentum and 
porosity variation on the flow distribution, concentration, and temperature in the radial 
direction of the bed. The two-dimensional model not only predicts the concentration and 
temperature profile at the column center well, but it also predicts the average 
concentration reasonably well. 

3. A linear driving force mass transfer model provides a reasonable fit to the experimental 
adsoiption and desorption. 

4. The concentration of a key component, CO 2 , is affected by the presence of the non-key 
component, N 2 , in CO 2 /N 2 adsorption. CO 2 effluent concentration overshoots its inlet 
concentration because of H 2 O displacement (more easily adsorbed) component. The 
height of this roll-up is increased with the inlet concentration of H 2 O component. 

5. Comparison of model results with test data shows the created models can be accurately 
used for modeling of the actual 4BMS. 

6. The two-dimensional model can be used to simulate the actual 5 A bed of 4BMS, which 
contains an array of approximately 1/2 inch square channels, for porosity variation. 

7. The LAST equilibrium predicts the breakthrough curve much closer to the test data than 
the Lanmuir-Fredlitch theory for mixtures of CO 2 /N 2 and CO 2 /H 2 O. 

5.2 Recommendations 

1. Since the PDE's of the two-dimensional model are a strong function of porosity, research 
into the velocity variation is obviously important. 

2. Because of transient behavior of adsorption processes, the CPU usage of the two- 
dimensional model is very large. Attempts should be made to convert the two- 
dimensional model to a one dimensional model by choosing the appropriate functions to 
describe the concentration, temperature, and velocity field in the radial direction of the 
column. 

3. The solution to 1AST functions relies on a rial and error type. This costs a large amount 
of CPU time. Further study should be done to eliminate this barrier. 


86 



September 1995 


MDC 95W5104 


4. Thermal vacuum description is the regenerative mode of the actual 4BMS 5A sorbent 
beds. Experimental data is needed to verify the model. 

5. Literature shows that a pressure swing process which only uses two beds is more efficient 
than any other adsorption/desorption process. Research should be done to convert the 
4BMS to a 2BMS. 

6. More recent isotherm data, obtained from the same sorbent that is expected to be used for 
the actual flight 4BMS system, has recently become available. This sorbent data should 
be incorporated into the models developed in this study. 

7 The models developed during this study have been shown to model the processes present 
in the 4BMS to a very reasonable degree of accuracy. Therefore, they should be 
incorporated into an integrated 4BMS for the purpose of analyzing and optimizing the 
4BMS system. 
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APPENDIX A 


DERIVATION OF IAST EQUATION (EQ 2.8) 

Knowing that the spreading pressure is related to temperature and the amount adsorbed on the 
solid by 



and assuming the adsorbed phase obeying Langmuir-Freundlich isotherm 



1 + B,P," 


eq 2.2 


the spreading pressure can be obtained as 



eq A.l 


therefore 7t is 

* = T -^ ,n ( 1 + B ' pr ") 

solving for P, 



knowing the fact that 

Pi = Py, = pi(rc)x. 

substitution of eq 2.23 into 2.6, and solving for x* 



knowing that 

X x i = X- v ' =1 


eq A.2 


eq A.3 


eq 2.6 


eq A.4 


eq 2.7 


A-l 



equation 2.8 will result 



A-2 



APPENDIX B 


DERIVATION OF MOMENTUM, ENERGY, AND MOLAR CONCENTRATION 
BALANCES FOR TWO DIMENSIONS 


In order to derive the mass, energy, and momentum balances for adsorption packed column in 
cylindrical coordinates, the conservation laws were set over a thin "shell" of fluid. In all of 
conservation laws the balances are: 


r time rate oP 
v change of i ; 


= (rate of i in ) - (rate of i out) + 


rate production or N 
dissipation of i y 


eq B.l 


where i could be momentum, thermal heat, or molar mass of component i. After a balance is 
made on a shell of finite thickness, the limit is taken as the spatial dimensions approach zero. As 
a result of this, a differential equation is generated which describes the time rate of change of a 
particular variable. 

In this study, the diffusion of momentum, heat and molar mass was taken into account not only 
in the axial direction but also in the radial direction. 


For developing the conservative equations the following assumptions were made: 

1. The gas phase is dilute and follows ideal gas law 

2. Axial and radial conduction within column wall is neglected 

3. The adsorbent pellet can be modeled as sphere 

4. The temperature within the pellet is uniform 

5. The radial convection is negligible 

B.1 Conservation Of Molar Mass Of Component i In The Mixture 

In developing the molar mass balance of component i in the mixtures which is being adsorbed by 
pellet particles within the packed bed, the fluxes of component i take place by diffusion and 
convection in axial direction and only by diffusion in radial direction, since the radial convection 
is negligible. The rate of disappearance of component i in the mixture is by diffusion of i at the 
surface and into the pore and the solid part of the particles. Writing the molar mass conservation 
of component i 

dC 

e27trArAx— - 1 - = £27trArN.I -£2mrArN,| „ +e27tAxrN.| -£27tAxrN,| - 

ii li+Ax lr Ir+Ar 

(l-E)27trArAxr 1 eqB.2 


Collecting the terms and dividing by £2m*ArAx 

3C, ( N 'L,„- N i) (rN.L,-rN.|,) q-e) r 

dt Ax rAr e 1 


eq B.3 


Take the limit as Ax and Ar go to zero 

dC, _ dN l T 3(rNt, r ) (1 — e) r 

dt Ax rAr £ eqB.4 
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Knowing that 


dC, 


N u— D -r.^ + «.C, 


dC 
dr 


N, =-D^ .^L + u.C 


r'-'l 


eq B.5 


where the second term, the convection term in the radial direction, is negligible. Substitution of 
fluxes into the above equation 

dc, n yc, ao»c,) lWt d rdc, q-E) r 

dt ’"••‘dx 2 dx -T " r rdr ' dr e * eqB.6 


The derivation for one dimensional molar mass balance is the same as above except that the third 
term on the right hand side, flux due to radial diffusion, is not considered. 

B.2 Conservation Of Energy Of Fluid Flow 

Energy transfer in fluid phase is by convection in the axial direction and by diffusion in axial and 
radial directions. Energy is also being produced by heat of adsorption of components in the 
particle. Energy is being transferred to the wall of column by an overall heat transfer coefficient. 
Writing the energy balance for the gas phase 

3T 

e27trArAx Pl c M = e27trAr(q - -E2itrAr(q- Pl c„u/r f ^ + 

e2itrAx(q - - e2rorAx(q - p.c^uj,)^ - 

(1 - E)2rarArAxh,a,(T f -T.) 

Collecting the terms and dividing by £27rrArAx 

dT, _ q+Pt c w u - T tj 


eq B.7 


P ‘ C "dt 


Ax 


r(q + p,c„u r T, - r(q + p,c w u r T , ( 

rAr 


eqB.8 


Take the limit as Ax and Ar go to zero and ignoring the radial convection 
3T. dq. dfu.T.) 3(rq,) (J-c) t . „ T , 

P « C »1 = hA(T *' T - ) 


dx 


eqB.9 
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Knowing the fluxes are 


q x =-k 


r.x 



q r = 



eqB.10 


Substitution of fluxes into the above equation 

ar, a*r. 


D C 


at 


ax 


r, d(uT f ) 3 ,_3T tl (l-e) u _ „ , 

#■ - pa. - **- + k, ’7a <r l^ ) *aO. - T - > 


eqB.ll 


The derivation for one dim ensional heat balance is the same as above except that the third term 
on the right hand side, flux due to radial diffusion, is not being considered. And, a dissipation 
rate of energy to the column wall must be added to the above equation. 

B.3 Conservation Of Energy Of Solid Phase 

Energy transfers in solid phase by diffusion in axial and radial directions. Energy is also being 
produced by heat of adsorption of components in the particle. Energy is being transferred to the 
fluid phase by an overall heat transfer coefficient Writing the energy balance for the solid phase 

*Vr 

27trArAxp c — = 27trAr(q)l - 2rarAr(q)| i+Al + 27trAx(q)| r - 2rarAx(q)| r+Ar - 
at 

it 

2ra*ArAxh,a, (T, -T | )-2jtrArAx]^AH l r 1 

1.1 eqB.13 


Collecting the terms and dividing by e2«rArAx 


P.Cp. 


dT, _ (gjLte <HL_ r(q ^ r -SjL _ h a,(T, -T )-Y AH,r, eq4.14 

9t Ax rAr ' * * t-i 


knowing the fluxes 

. 3T, 

q* = _k .,x 


q r =_k .,r 


* ax 

3T. 


dr 


eq B.14 


inserting fluxes in equation 

' p * at 


p. c p 


■ k «i? t+k -4 <r f t) - h - a - fr - ^ 


eq B.15 


The derivation for one dimensional heat balance for the solid pnase is the same as above except 
that the second term on the right hand side, flux due to radial diffusion, is not being considered 
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B.4 Conservation Of Energy Based On An Effective Conductivity 

When the temperature difference between fluid and particle phases is neglected, column 
temperature can be derived by summation of eqs B-l 1 and 4.15. 


, ^,1 , ^ T « . a < uT *> , 3, 3T, ,, ,v*u 

(ep gCpt + (1 - E)p |Cp< - e p |Cpg — + Ek ^r-^(«--^ : ) - (1 - £>X AH.r 


eqB.16 


where k x>e ff and k r ^ff are the effective thermal conductivity in the axial and radial direction in 
the packed column, which are 
k#ir,i = k Itl + k fx 

= + ^r,r eqB.17 


The derivation for one dimensional-homogeneous heat balance is the same as above except that 
the third term on the right hand side, flux due to radial diffusion, is not considered. And, a 
dissipation rate of energy to the column wall must be added to the above equation. 

B.5 Total Mass Balance 


Assuming ideal gas law C, = and knowing X**i = P> the component mass balance 

equation can be recast into an overall mass balance equation, substitution of Q into eq 2.10 and 
carrying out the derivatives yields to 
D1 


RTg 




RT g dx 2 R 


dx 


<r*-2 

A g 


ax 3 


RT g at 


RT g at 


, u 3P, UP, , P, au l-gaq, 

RT g dx RT g ax RT g ax £ at 

neglecting the second term and multiplying by RTg , the above equation reduces to 


at " u ' 


ax 2 


-U 


ap, 

dx 


_ p Ai P,, 
'a% t 


ar_ 




at 


„ a 2 T, ar, 

D 'l/ +U af 


- RT. - — —4^ 


at 


eq B.18 


eoB.19 


summation of the above equation over all the components and knowing that^Ri = P, the 
equation for total pressure is 


ap _ a 2 p ap „au p far 

¥ =D '3?- U ftr p 8rx;tar 
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a^T 

ax 2 




y dq t 


eq B.20 



APPENDIX C 

DESCRIPTION OF COMPUTER PROGRAMS 


Four FORTRAN computer programs are presented in this report. The first is a two-dimensional 
model of flow adsorption/desorption in a packed bed. The second is a one-dimensional model of 
flow adsorption/desorption in a packed bed. The third is a model of the thermal vacuum 
desorption. And the last is a tri-sectional packed bed with two different sorbent materials. The 
programs are capable of simulating up to four gas constituents for each process. If it is necessary 
to simulate more constituents, minor changes are needed in a few subroutines. 

C.1 Two Dimensional FORTRAN Program 

A flow chart of the two-dimensional modeling of flow adsorption/desorption is shown in Figures 
C-l and C-2. This program simulates the two-dimensional adsorption and desorption of a fixed- 
bed col umn 10 inches long and 1.87 inches in diameter. The model simulates four constituents 
with variations in radial velocity and porosity. The users supply initial and boundary condition in 
the INITIAL subroutine. If it is necessary to run the model with a larger diameter or length, the 
number of grids must be specified in the INITIAL subroutine. 

For each Hmp step the temperature dependent parameters (density, conductivity, viscosity, etc.) 
are recalculated. If the temperature change is not significant in the packed bed during the 
simulation, the user can specify that these parameters will not be recalculated. 

Solid-gas equilibrium for the pure components are predicted by the Langmuir-Freundlich 
isotherm. For mixtures, two types of solid-gas equilibrium are implemented in the program. One 
is based on the Langmuir-Freundlich isotherm for mixtures. The second prediction uses the LAST 
isotherm. The IAST model has an iterative solution and is CPU time intensive. The user can 
switch an indicator to chose the desired isotherm method. 

The energy balance includes the heat lost to the surroundings. For an adiabatic simulation of a 
packed bed, the heat transfer coefficient between the wall and the surroundings equal is set to 
zero. 

Heat transfer is assumed between the solid, fluid flow, and the wall of the column. The program 
is also capable of simulating the heat transfer bed based on an effective conductivity. In this case 
a thermal equilibrium between solid and fluid flow is assumed. Axial and radial conductivity is 
included in the model. These parameters vary along the radial and axial direction based on the 
porosity variation. The program is also capable of making these parameters constant by 
switching the proper indicator. 

Mass transfer is simulated with a lumped resistance model. This resistance is obtained by 
matching experimental breakthrough curves with the results of the model. 

This model uses the UNDER -RELAXATION method for calculation of all variables in the 
PDE's, except the velocity and the pressure which are computed by the NEWMAN method. The 
total numbers of equations involved for four components is 13. 
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FIGURE C- 1 THE FLOW CHART OF THE MAIN PROGRAM FOR THE 2-D MODEL 
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FIGURE C-2 THE FLOW CHART FOR THE SUBROUTINE PROGRAMS FOR THE 2-D 

MODEL 
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A list of program variables is given below with a brief description. 


Variable 

Description 

Units 

Type 

LL 

Time step index 

none 

Int 

T Time 

current time 

minutes 

real 

S(i,j,k) 

matrix variable; invariable ID; j- 
grid number; k-radial grid number 

axial various 

reaTI 3 

P(i,j,k). 

Old of S array 

various 

real'1 3 

LI 

gas temperature 

R 

real 

L2 

solid temperature 

R 

real 

L3 

wall temperature 

R 

real 

L4 

velocity 

ft/hr 

real 

L5 

pressure 

psia 

real 

16 

pressure 

psia 

real 

FT 

pressure 

mmHG 

real 

NCOMP 

number of components 

dimensionless 

int 

INERT 

type of carrier gas 1-n2; 2«He 

dimensionless 

real 

EPSEX 

porosity 

sq ft/cu ft 

real 

TAMB 

outside temperature 

R 

real 

RHD6 

particle density 

Ibs/cu ft 

real 

2 

bed length 

ft 

real 

VOID_B 

porosity 

sq ft/cu ft 

real 

D 1 

inside bed diameter 

ft 

real 

D E 

outside bed diameter 

ft 

real 

S B 

cross sectional area of bed 

ft 

real 

CP_WA 

heat capacity of wall 

BTU/F/LB 

real 

RO WA 

density of wall 

Ib/cu ft 

real 

CP S 

heat capacity of particle 

Btu/lb-F 

real 

ROJS 

density of particle 

Ib/cu ft 

real 

R P 

particle radius 

ft 

real 

D_P 

particle diameter 

ft 

real 

heat(i) 

heat of adsorption for each component 

BTU/lb mole 

real 

NC 

number of components 

dimension less int 

G F 

volumetric flow rate 

cu ft/min 

real 

T FO 

inlet temperature 

R 

real 

P_C 

inlet component partial pressure 

psia 

real 

T> 

initial temperature 

R 

real 

R 

ideal gas law constant 

Ibf/sq ft .lb real 
mol/cu ft/R 

PI 

constant 

3.14 real 

M W 

molecular weight 

Ib/mole 

real 

GC 

gravitational constant 

in hr 

real 

K_F 

mass transfer coefficient 

ft/hr 

real 

NJ 

grids number in axial direction 

dimensionless 

int 

NJR 

grids number in radial direction 

dimensionless 

int 

DELZ 

grid size in axial direction 

ft 

real 

DELT 

time step 

h r 

real 

CON si 

pellet conductivity 

BTU/hr/ft/F 

real 

ERROR 

convergence criteria 

various 

real 
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A list of program variables is given below with a brief description (continued). 


Variable 

Description 

Units 

Type 

N 

number of equation 

dimensionless 

int 

DELR1 

grid size in radial direction 

ft 

real 

DELR2 

grid size in radial direction 

ft 

real 

Y F 

component mole fraction 

mole/mole 

real 

P_TOT 

Total Pressure 

psia 

real 

BC LI to 
BC L6 

boundary condition for LI to L6 

various 

real 

WO 

under relaxation coeff 

dimensionless 

real 

l_SOL_FLO 

indicator, no equilibrium between the gas indicator 
and solid temperature 

int 

DP 

particle diameter 

ft 

real 

H_OW 

heat transfer coefficient outside of the wall Btu/sq ft- 

min-r 

real 

U(i.J) 

velocity/Darcy velocity, center 
velocity 

line dimensionless 

real 

UMAX 

max velocity 

ft/hr 

real 

NUMAX 

the grid where max velocity is 

ft/hr 

int 

EPS(i) 

porosity 

sq ft/cu ft 

real 

REY 

Reynolds number 

dimensionless 

real 

CP P 

specific heat 

BTU/F/cu ft 

real 

vise P 

viscosity 

Ib/ft/hr 

real 

H_FP 

heat transfer coefficient fluid-particle 

Btu/hr/sq 

ft/F 

real 

CON Z 

fluid axial conductivity 

Btu/hr/ft/F 

real 

CON R 

fluid radial conductivity 

Btu/hr/ft/F 

real 

CON S 

particle conductivity 

Btu/hr/ft/F 

real 

EFF CON Z1 

fluid axial effective conductivity 

Btu/hr/ft/F 

real 

EFF CON R1 

fluid radial effective conductivity 

Btu/hr/ft/F 

real 

DIF 

molecular diffusivity 

sq ft/hr 

real 

SC_N 

Schmidt number 

dimensionless 

real 

Eff_DIFF_R 

fluid radial effective diffusivity 

sq ft/hr 

real 

EFF_DIFF_Z 

fluid axial effective diffusivity 

sq ft/hr 

real 

H_W 

heat transfer coefficient fluid-wall 

Btu/hr/sq 

ft/F 

real 

V(i) 

Langmuir constant 

lb mol/cu ft 

real 

B ( i) 

Langmuir constant 

dimensionless 

real 

PO(i) 

Langmuir constant 

dimensionless 

real 

PP 

component partial Pressure 

mm Hg 

real 

Q1 

adsorbed concentration 

lb mol/solid real 


lb 
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C.2 One-Dimensional Flow Adsorption/Desorption FORTRAN Program for Column 
Packed with One Section Material 

A flow chart of the one-dimensional modeling of flow adsorption/desorption is shown in Figure 
C-3 and C-4. This program simulates the one-dimensional adsorption and desorption of a fixed- 
bed column 10 inches long and 1.87 inches in diameter. Users supply initial and boundary 
condition in the INITIAL subroutine. If it is necessa ry to run the model with larger diameter or 
length, the number of grids must be specified in the INITIAL subroutine. 

For each tim e step the temperature dependent parameters (density, conductivity, viscosity, etc.) 
are recalculated. If the temperature change is not significant in the packed bed during the 
simulation, the user can specify that these parameters will not be recalculated. 

Solid-gas equilibrium for the pure components are predicted by the Langmuir-Freundlich 
isotherm. For mixtures, two types of solid-gas equilibrium are implemented in the program. One 
is based on the Langmuir-Freundlich isotherm for mixtures. The second prediction uses the IAST 
isotherm. The IAST model has an iterative solution and is CPU time intensive. The user can 
switch an indicator to chose the desired isotherm method. 

The energy balance includes the heat lost to the surroundings. For an adiabatic simulation of a 
packed bed, the heat transfer coefficient between the wall and the surroundings equal is set to 
zero. 

Heat transfer is assumed between the solid, fluid flow, and the wall of the column. 

Mass transfer is simulated with a lumped resistance model. This resistance is obtained by 
matchin g experimental breakthrough curves with the results of the model. 

This model uses the UNDER-RELAXATION method for calculation of all variables in the 
PDE’s, except the velocity and the pressure which are computed by the NEWMAN method. The 
total numbers of equations involved for four components is 13. 
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FIGURE C-4 THE FLOW CHART OF THE SUBROUTINES PROGRAM FOR THE 1-D 

MODEL 
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A list of program variables is given below with a brief description. 


Variable 

LL 

T_Time 

C(i.j) 

P(i.j). 

LI 

L2 

L3 

L4 

L5 

16 

PT 

NCOMP 

INERT 

EPSEX 

RH36 

2 

VOID_B 

D_l 

D_E 

S_B 

CP_WA 

RO_WA 

CP_S 

RO_S 

R_P 

D_P 

heat(i) 

ND 

G_F 

TO 

R 

PI 

M_W 

GO 

K_F 

NJ 

DELZ 

DELT 

C0N_S1 

ERROR 

N 

Y F 


Description 

Units 

Type 

Time step index 

none 

Int 

current time 

minutes 

real 

matrix variable; invariable ID; j- 
grid number; k-radial grid number 

axial various 

reaPI 3 

Old of C array 

various 

reaPI 3 

gas temperature 

R 

real 

solid temperature 

R 

real 

wall temperature 

R 

real 

velocity 

ft/hr 

real 

pressure 

Dsia 

real 

pressure 

psia 

real 

pressure 

mm HG 

real 

number of component 

non 

dimensional 

int 

type of carrier gas 

non 

dimensional 

real 

porosity 

cu ft/cu ft 

real 

particle density 

Ibs/cu ft 

real 

bed length 

ft 

real 

porosity 

cu ft/cu ft 

real 

inside bed diameter 

ft 

real 

outside bed diameter 

ft 

real 

cross sectional area of bed 

ft 

real 

heat capacity of wall 

BTU/F/LB 

real 

density of wall 

Ib/cu ft 

real 

heat capacity of particle 

real 

real 

density of particle 

Ib/cu ft 

particle radius 

ft 

real 

particle diameter 

ft 

real 

heat of adsorption for each component 

BTU/lb mole 

real 

number of component 

non dimension 

int 

volumetric flow rate 

cu ft/min 

real 

initial temperature 

R 

real 

ideal gas law constant 

ibf/sq ft .lb real 
mol/cu ft/R 

constant 

3.14 real 

Molecular weight 

real 

real 

constant 


mass transfer coefficient 

ft/hr 

real 

grids number in axial direction 

non dimension 

int 

grid size in axial direction 

ft 

real 

time step 

h r 

redl 

pellet conductivity 

BTU/hr/ft/F 

real 

convergence criteria 

various 

real 

number of equation 

non dimension 

int 

component mole fraction 

lb mole i/lb real 
mole 
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A list of program variables is given below with a brief description (continued). 


Variable 

Description 

Units 

Type 

P_TOT 

Total Pressure 

psia 

real 

BC LI to 

boundary condition for LI to L6 

various 

real 

BC L6 




WO 

under relaxation coeff 

non dimension 

real 

HOW 

heat transfer coefficient outside of the wall 

Btu/hr/F/sq 

ft 

non dimension 

real 

REV 

Reynolds number 

real 

CP_P 

specific heat 

BTU/F/cu ft 

real 

VISC.P 

viscosity 

Ib/ft/hr 

real 

H_FP 

heat transfer coefficient fluid-particle 

Btu/hr/sq 

ft/F 

real 

CON L 

fluid axial conductivity 

Btu/hr/ft/F 

real 

CON S 

particle conductivity 

Btu/hr/ft/F 

real 

H_W 

heat transfer coefficient fluid-wall 

Btu/hr/sq 

real 



ft/F 


V(i) 

Langmuir constant 

lb mole/lb real 

solid 


B(i) 

Langmuir constant 

non dimension 

real 

PO(i) 

Langmuir constant 

non dimension 

real 

PP 

component partial Pressure 

mm Hg 

real 

Q1 

adsorbed concentration 

lb mol/ lb real 



solid 


BC_C1 (i) 

boundary condition of molar concentration 

lb mole/cu ft 

real 

W0-W3 

under relaxation for each component and non dimension 

real 


temperature 


real 

F3-F8 

PDE's coefficient 

various 

PE_N_M 

mass Peciet number 

non- 

dimension 

real 

PE_N_H 

heat Peciet number 

nonedimension real 

AINT 

interfacial area 

sq ft/cu ft 

real 

U FI 

velocity 

ft/hr 

real 
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C.3 One-Dimensional Flow Adsorption/Desorption FORTRAN Program for Column 
Packed with Three Sections of Different Material 

A flow chart of the one-dimensional modeling of flow adsorption/desorption for column packed 
with three sections of different materials is shown in Figure C-5 and C-6. This program 
simulates the one-dimensional adsorption and desorption of a fixed-bed column 10 inches long 
and 1.87 inches in diameter. Users supply initial and boundary condition in the INITIAL 
subroutine. If it is necessary to run the model with larger diameter or length, the number of grids 
must be specified in the INITIAL subroutine. 

The first section of the column, about 3 inches, contains the 13X material, followed by about 10 
inches of silica gel, and finally the rest of the bed is filled with 13X material. 

For each time step the temperature dependent parameters (density, conductivity, viscosity, etc.) 
are recalculated. If the temperature change is not significant in the packed bed during the 
simulation, the user can specify that these parameters will not be recalculated. 

Solid-gas equilibrium for the pure component is predicted by Langmuir-Freundlich isotherm for 
the 13X material. Silica gel is depicted from the literature as an exponential function of 
temperature and pressure. For mixtures, two types of solid-gas equilibrium are implemented in 
the program. One is based on the Langmuir-Freundlich isotherm for mixtures. The second 
prediction uses the LAST isotherm. The LAST model has an iterative solution and is CPU rime 
intensive. The user can switch an indicator to choose the desired isotherm method. 

The energy balance includes the heat lost to the surroundings. For an adiabatic simulation of a 
packed bed, the heat transfer coefficient between the wall and the surroundings equal is set to 
zero. 

Heat transfer is assumed between the solid, fluid flow, and the wall of the column. . 

Mass transfer is presented as lumped resistance model for the 13X material. For silica gel, the 
flux of the adsorbate is considered to be a combination of solid and pore diffusion. This 
resistance is obtained by matching experimental breakthrough curves with the results of model. 

The model uses UNDER-RELAXATION method for calculation of all variables in the PDE’s, 
except the velocity and the pressure which are computed by NEWMAN method. The total 
numbers of equations involve for four components is 13. 




FIGURE C-5 THE FLOW CHART OF THE MAI N PRO GRAM FOR THE 1-D MODEL FOR 
BED PACKED WITH THREE DIFFERENT MATERIALS 
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FIGURE C-6 THE FLOW CHART OF THE SUBROUTINES PROGRAM FOR THE 2-D 
MODEL FOR BED PACKED WITH THREE DIFFERENT MATERIALS 
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A list of program variables is given below with a brief description. 


Variable 

Description 

Units 

Type 

LL 

Time step index 

none 

Int 

T Time 

current time 

minutes 

real 

C(i.j) 

matrix variable; i-variable ID; 
grid number; k-radial grid number 

j— axial various 

reaTI 3 

P(i.i). 

Old of S array 

various 

real*1 3 

LI 

gas temperature 

R 

real 

L2 

solid temperature 

R 

real 

L3 

wall temperature 

R 

real 

L4 

velocity 

ft/hr 

real 

L5 

pressure 

psia 

real 

16 

pressure 

psia 

real 

FT 

pressure 

mm HG 

real 

NCOMP 

number of component 

nonedimension 

int 

INERT 

type of carrier gas 

nonedimension real 

EPSEX1 ,2 

porosity, material type 1,2 

cu ft/cu ft 

real 

RHOS1.2 

particle density, material type 1, 2 

Ibs/cu ft 

real 

Z 

bed length 

ft 

real 

VOlD_B 

porosity 

cu ft/cu ft 

real 

D 1 

inside bed diameter 

ft 

real 

D E 

outside bed diameter 

ft 

real 

S_B 

cross sectional area of bed 

ft 

real 

CP WA 

heat capacity of wall 

BTU/F/LB 

real 

RO_WA 

density of wall 

Ib/cu ft 

real 

CP_S1 ,2 

heat capacity of particle type 1,2 

real 


RO_S1 ,2 

density of particle 

Ib/cu ft 

real 

R_P1 ,2 

particle radius of type 1, 2 

ft 

real 

D_P1 ,2 

particle diameter type 1 1,2 

ft 

real 

heatl ,2(i) 

heat of adsorption for each component of BTU/lb mole 
type 1,2 

real 

ND 

number of component 

nonedimension 

int 

G_F 

volumetric flow rate 

cu ft/min 

real 

TO 

initial temperature 

R 

real 

R 

ideal gas law constant 

Ibf/sq ft .lb real 
mol/cu ft/R 

PI 

constant 

3.14 


M W 

Molecular weight 

lb /mole 

real 

QD 

constant 

in hr, ... 

real 

K F 

mass transfer coefficient 

ft/hr 

real 

NJ 

grids number in axial direction 

nonedimension int 

DELZ 

grid size in axial direction 

ft 

real 

DELT 

time step 

hr 

real 

CON_S1 

pellet conductivity 

BTU/hr/ft/F 

real 

ERROR 

convergence criteria 

various 

real 

N 

number of equation 

non- 

dimension 

int 

Y_F 

component mole fraction 

lb mole/lb real 
mol 
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A list of program variables is given below with a brief description (continued). 


Variable 

Description 

Units 

Type 

P_TOT 

Total Pressure 

psia 

real 

BC LI to 

boundary condition for LI to L6 

various 

real 

BC L6 




WO 

under relaxation coeff 

nonedimension real 

HOW 

heat transfer coefficient outside of the wall 

Btu/hr/F/sq 

f * 

real 

REY 

Reynolds number 

1 1 

nonedimension real 

CP_P 

specific heat 

BTU/F/cu ft 

real 

VISC_P 

viscosity 

Ib/ft/hr 

real 

H_FP 

heat transfer coefficient fluid-particle 

Btu/hr/sq 

real 



ft/F 


CON_L 

fluid axial conductivity 

Btu/hr/ft/F 

real 

C0N_S1 ,2 

particle conductivity of type 1 and 2 

Btu/hr/ft/F 

real 

H_W 

heat transfer coefficient fluid-wall 

Btu/hr/sq 

real 



ft/F 


V(i) 

Langmuir constant 

lb mole/lb real 



solid 


B(i) 

Langmuir constant 

nonedimension real 

PO(i) 

Langmuir constant 

nonedimension 

real 

PP 

component partial Pressure 

mm Hg 

real 

01 

adsorbed concentration 

lb mol/solid real 

1 k 

BC_C1 (i) 

boundary condition of molar concentration 

1 U 

lb mole/cu ft 

real 

W0-W3 

under relaxation for each component and nonedimension 

real 


temperature 



F(i) 

PDE's variable 


real 

AINT 

interfacial area 

sq ft/cu ft 

real 

U_F1 

velocity 

ft/hr 

real 

LAYER1 ,2 

number of grids for first section, for the nonedimension 

int 


last section 



EPS 

particle porosity 

cu ft/cu ft 

real 
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C.4 One Dimensional Thermal Vacuum Desorption FORTRAN Program 

A flow chart of the one-dimensional modeling of thermal vacuum desorption is shown in Figures 
C-7 and C-8. This program simulates a one-dimensional desorption of a fixed-bed column 10 
inches long and 1.87 inches in diameter . The users supply initial and boundary conditions in 
INITIAL subroutine. If it is necessary to run the model with a larger diameter or length, the 
number of grids must be specified in the INITIAL subroutine. 

For each time step the temperature dependent parameters (density, conductivity, viscosity, etc.) 
are recalculated. If the temperature change is not significant in the packed bed during the 
simulati on, the user can specify that these parameters will not be recalculated. 

Solid-gas equilibrium for the pure component is predicted by Langmuir-Freundlich isotherm for 
the 13X material. For mixtures, two types of solid-gas equilibrium are implemented in the 
program. One is based on the Langmuir-Freundlich isotherm for mixtures. The second prediction 
uses the IAST isotherm. The LAST model has an iterative solution and is CPU time intensive. 
The user can switch an indicator to choose the desired isotherm method. 

The energy balance includes the heat lost to the surroundings. Adiabatic simulation of a packed 
bed can be done by setting the heat transfer coefficient between the wall and the surroundings 
equal zero. 

Heat transfer is assumed between the solid, fluid flow, and the wall of the column. Axial 
conductivity is included in the model. These parameters vary along axial direction inside the bed. 
The program is also capable of making these parameters constant by switching the proper 
indicator. 

Mass transfer is presented as lumped resistance model. This resistance is obtained by matching 
the experimental breakthrough curve with the result of model. 

In this model the material balances are based on the partial pressure. The pressure and velocity 
gradient inside the column are steep. Because of this, the model uses NEWMAN method for 
calculation of all variables in the PDE's. The total numbers of equations involve for four 
components is 13. 
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FIGURE C-7 THE FLOW CHART OF THE MAIN PROGRAM FOR THE THERMAL 

VACUUM DESORPTION 
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FIGURE C-8 THE FLOW CHART OF THE SUBROUTINES PROGRAM FOR THE 

THERMAL VACUUM DESORPTION 
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A list of program variables is given below with a brief description. 


Variable 

Description 

Units 

Type 

LL 

Time step index 

none 

Int 

T Time 

current time 

minutes 

real 

C(i.j) 

matrix variable; i-variable ID; j- 

axial various 

real’1 3 


grid number; k*radial grid number 



P(i.j)- 

Old of C array 

various 

real*1 3 

LI 

gas temperature 

R 

real 

L2 

solid temperature 

R 

real 

L3 

wall temperature 

R 

real 

L4 

velocity 

ft/hr 

real 

L5 

pressure 

psia 

real 

16 

pressure 

psia 

real 

PT 

pressure 

mm HG 

real 

NOOMP 

number of component 

non- 

int 



dimensional 


INERT 

type of carrier gas 

non- 

real 



dimensional 


EPSEX 

porosity 

cu ft/cu ft 

real 

RHOS 

particle density 

Ibs/cu ft 

real 

Z 

bed length 

ft 

real 

VOID_B 

porosity 

cu ft/cu ft 

real 

D 1 

inside bed diameter 

ft 

real 

D_E 

outside bed diameter 

ft 

real 

S_B 

cross sectional area of bed 

ft 

real 

CP WA 

heat capacity of wall 

BTU/F/LB 

real 

RO_WA 

density of wall 

Ib/cu ft 

real 

CP S 

heat capacity of particle 

real 


ROJS 

density of particle 

Ib/cu ft 

real 

R_P 

particle radius 

ft 

real 

D_P 

particle diameter 

ft 

real 

heat(i) 

heat of adsorption for each component 

BTU/lb mole 

real 

NC 

number of component 

nonedimension int 

G F 

volumetric flow rate 

cu ft/min 

real 

TO 

initial temperature 

R 

real 

R 

ideal gas law constant 

lbf/sq ft .lb real 



mol/cu ft/R 


PI 

constant 

3.14 real 

M W 

Molecular weight 

real 


QD 

constant 


real 

K F 

mass transfer coefficient 

ft/hr 

real 

NJ 

grids number in axial direction 

nonedimension int 

DELZ 

grid size in axial direction 

ft 

real 

CELT 

time step 

h r 

real- 

CON_S1 

pellet conductivity 

BTU/hr/ft/F 

real 

ERROR 

convergence criteria 

various 

real 

N 

number of equation 

nonedimension int 

Y_F 

component mole fraction 

lb mole i/lb real 



mole 




A list of program variables is given below with a brief description (continued). 


Variable 

Description 

Units 

Type 

P_TOT 

Total Pressure 

psia 

real 

BC LI to 

boundary condition for LI to L6 

various 

real 

BC L6 




WO 

under relaxation coeff 

nonedimension real 

H_OW 

heat transfer coefficient outside of the wall 

Btu/hr/F/sq 

ft 

nonedimension 

real 

REV 

Reynolds number 

i real 

CP_P 

specific heat 

BTU/F/cu ft 

real 

VISC_P 

viscosity 

Ib/ft/hr 

real 

H_FP 

heat transfer coefficient fluid-particle 

Btu/hr/sq 

ft/F 

real 

CON L 

fluid axial conductivity 

Btu/hr/ft/F 

real 

CONJS 

particle conductivity 

Btu/hr/ft/F 

real 

H_W 

heat transfer coefficient fluid-wall 

Btu/hr/sq 

ft/F 

real 

V { i ) 

Langmuir constant 

lb mole/lb real 



solid 


B(I) 

Langmuir constant 

nonedimension real 

PO(i) 

Langmuir constant 

nonedimension real 

PP 

component partial Pressure 

mm Hg 

real 

01 

adsorbed concentration 

lb mol/ lb real 



solid 


BC_C1 (i) 

boundary condition of molar concentration 

lb mole/cu ft 

real 

W0-W3 

under relaxation tor each component and nonedimension real 


temperature 



F3-F8 

PDE's coefficient 

various 

real 

PE N M 

mass Peclet number 

nonedimension real 

PE_N_H 

heat Peclet number 

nonedimension real 

AINT 

interfacial area 

sq ft/cu ft 

real 

U_F1 

velocity 

ft/hr 

real 
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APPENDIX D 


FL0W1M0L FORTRAN CODE 


c 

C (his is the main routin. the initial values of rnatu C and parameters are 
C called by "INl'I iAL_Z" subroutine, the main routine then calls the ”FUNCT2_Z" 

C subroutine to solve the discretized partial diffential equations (pde's). 

C after convergence, the routine calls the "DIFFEQ1" subroutine, which is 
C the maine routine for solving the momentum and the pressure equations, 

C if it is desire to solve these two equations as the time progresses. 

C 

IMPLICIT REAL*8(A-H.O-Z) 

INTEGER IOUT(5XAOUT(4) 

CHARACTER'S LABELC4) 

CHARACTER *8 DATE 

CHARACTER* 12 OUTFILE, VIS FILE 

REAL*4 PL(1U01).QP(14301),T_TIMEJC_F(4)XND 

REAL*8Clfl4.301)31(14.301),Cl 1(14.301 ).Pn(14,301 ),C12f 14,301) 

COMMON/DATE/DATE 

COMMON/PLOT/ISATiABELAOUTJOUT 

COMMON/BND_Z/C(14301 ).P(14 ,301 XN, .NJ 

COMMON/PROP D Z/DELZ1J)ELT1X>ELTX>ELZ,U_F1XEND,NCJLLL.K_F 
COMMON/INDIC/LLL2J-3.L4.L5.L6,TIME,PERERR.MT 

COMMON/BOUN_CON/BC_L13C_L23C_L33C_L43C_L53C_L63C_C(4),TO 
COMMON/PRO_IND/ITEST2JTEST 1 
COMMON/NUM OF_ITR/ITCNTl 
COMMON/INDICl/IND(4) 

WRITE(*, *)T>ESIGNATE A DATE FOR THE INPUT/OUTPUT FILES’ 
WRITE!* ,*)TORMAT 00-00-00 WITH DOUBLE QUOTES’ 

READ* J5 ATE 
OUTFILE = DATE // ’.OUT 
VISFILE = DATE // '.VIS’ 

OPEN (50 < FILE=OUTFILE.STATUS='NEW’ .RECL-32766) 

OPEN (66,FTLE=VISFILE,STATUS='NEW,RECL=32766) 

C IOUT designates the 5 grid locations to be prmied/plotted 
C LABEL designates the 4 labels for printed/plotted data 

C DATA IOUT/2. 1530,45,61/ 

C DATA LABEL/ppH20’,'pp N2','pp N2','gas T/ 

C Initialize the c array with the initial guesses of the solution 


CALLINmAL_Z 

T_TIME=0. 

TTME-0. 

C Write header data to ACS II file 

WRITE!50,47X(LABEL!J)JOUTa)J=U»1.4) 

CJK ICOT=l not used again! 

T TIME-0 

NLOOPS = END/DELT1 
IF(IND!2)3Q.O .OR. ISAT.EQ.1)THEN 
INDO-O 
NEQ=2*NC+3 
NA-NEQ+2 
ELSE 
IND0=1 
NEQ=2*NC 
NA-NEQ+5 
END IF 
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C Begin looping through each time step; 

C Call main routine for calculation of state conditions at current time step 
DO 301 LL=l.NLOOPS 
ITRAT-0 

c call diffeq subroutine co compute the pressure and the velocity 
121 IF(rrRAT.GT.5)GO TO 201 
DO30I1-1.NA 
DO30I2=l.NJ 
C1(IU2)*C(IU2) 

C12au2)-cau2) 

piau2>-pau2) 

30 CONTINUE 

ITRAT=ITRAT+1 

mt*i 

IF(ITRAT£Q.l AND. LL£Q.1)THEN 
ITCNT(V15 

ELSE IFOTRATiQ.l ) THEN 
ITCNT0-7 
ELSE 
ITCNTO=7 
END IF 

IF(IND0EQ.1)THEN 
CALL DIFFEQ(CU»U^JJ^EQ.l JTCNTO) 

ELSE 

CALL DEFFEQ0(C1.P1.NJ,NEQ.1) 

END IF 

IF(IND0.EQ.1)THEN 
DO 35 I1-1.NEQ 
DO 35 I2-1.NJ 
CliaiJ2)-CiaU2) 
pnau2)-piau2) 

35 CONTINUE 
L13=2*NC-t-l 
DO 11-13 
DO 12=1 

C1(IU2)=C(L13J2) 

P1(UJ2)«P(L13J2) 

END DO 
L13-L13+1 
END DO 
MT=0 

CALL DIFFEQ(CU>1 .NJ.3,3.4) 

DO 31 11=1,NC*2 
DO 31 12*1.NJ 
CaU2)=CliaiJ2) 
pau2)=piiau2) 

31 CONTINUE 
L13=2*NC+1 
DO 11=13 

DO 12=1 JU 
C(L13J2)=C1(I1J2) 

P(L13J2)=P1(IU2) 

END DO 
L13=L13+1 
END DO 
DO MM1=1,NC 

DO MM2=1,NJ 

IF (C(MMlJvlM2).GT.1.0E-15)THEN 
DIF=ABS(C(MM1JV1M2)-C12(MM1 Jv1M2))/C(MM1Jv1M2) 
IF(DIF.GT.1.0E-2)THEN 
GO TO 121 
END IF 
END IF 
END DO 
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END DO 


ELSE 

DO I1=1*NEQ 
DO 12=1 XJ 

cau2)-ciau2) 

pau2>-piflij2) 

END DO 
END DO 
END IF 
ITEST1=1 

201 IF(ISAT£Q. 1 )GO TO 303 

D0 300I2-1XJ 
C1(1J2)=C(L4J2) 

P1(1J2)=P(L4J2) 

C1(2J2)=C(L5J2)*760714.696 
PI (2J2)=P(L5 J2)*760./l 4 .696 
C1(3J2>=C(L6J2)*760714.696 
P1(3J2)=P(L6J2)*760714.696 
C1(4J2>-C(LU2) 

P1(4J2H>(L1J2) 

300 CONTINUE 

IF(IND0XQ.1)THEN 
CALL DIFFECKCUl XL3.Z5) 

ELSE 

CALL DIFFEQ0(C1,P1*NJ3*2) 

END IF 

DO 400 12=1^1 
C(L4J2)=C1(1J2) 

C(L5J2)=C1 (2J2)* 14.696/760. 

C(L6J2)=C1(3 J2)* 14.696/760. 

400 CONTINUE 

C Add time step (converted from dimless to minutes) 

303 T TIME = T 7TME+DELT*Z/U FI *60. 
TIME=T_TIME/60 . 

ITEST1=0 

CJK Do we want to common DELT or DELT1 (both not needed)? 
IF(LL.EQ^5)THEN 
DELT1=DELT1*2 
DELT=DELT*2 
END IF 

IF(LL.EQ.50)THEN 
DELT1=DELT1*2 
DELT=DELT*2 
END IF 

CJK Eliminate above? 


C Convert to units used for plotting (psia to mmHg, R to F t R*8 to R*4) 

D0 74M2=1XJ 
DOIl=lXC 

QP(Il*M2>=C(Il*M2)*10.73D0*C(Ll t M2)*76O/14.696 
END DO 

DO I1=NC+U*NC 
QPaLM2>=CaUvl2) 

END DO 

QP(Ll*M2)=C(Ll*M2)-460. 

QP(L2Jvl2)=C(L2*M2)-460. 

QP(L3>12>=C(L3*M2}-460. 

QP(L4,M2)=C(LAM2) 

QP(L5Jvl2)=C(L5,M2) 

QP(L6*M2)=C(L6,M2) 

74 CONTINUE 
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C ISAMP is the sampling frequency, where "10" plots every 10th time step data 


ISAMP-10 

IF(T_TIME.LT 30) ISAMP=1 


C Print runtime output headers every 4th and data every time step 

IF((LL/(ISAMP*4))*ISAMP*4.EQ.LL.ORLL.EQ.l ) THEN 
WRTTE(6,49) 

WRITE(6,41)' GRID \IOUT(I),’ U-1.5) 

ENDIF 

WRTTE/6.49) 

WRITE<6,40) , «*»* TIME * '.T.TIME.'LOOPS - 'JTCNTl,' *** 
WRITE(6,42)LABEL(l).(QP(AOUT(l)JOUT(D)J-U) 
WRTTE(6,42)L\BEL(2X(QP(AOUT(2)JOUT(D)J-U) 
WR]TE/M3)LABEL/3).(QP(AOUT(3)JOUT(I))J«1.5) 

WRITE/ 6,43)LABEL(4),(QP(AOUT(4)JOUT(I))J m l.S) 

C Print time slice data 1/10 less often 

IF(/LL/(ISAMP* 10))* ISAMP* 10.EQ.LL) THEN 
WRITE/ 66.44XLAB EL/I ).I« 1 ,4).T_TIME 
WRITE/ 66,45 X (QP( AOUT/I)JOUT / J))J» 1 ,4)J« 1 ,5 ) 

ENDIF 

C Print pp, temp output data every ISAMP 

IF((UL/ISAMP)*ISAMP.EQ J-L) THEN 
WRITE(50,46)T TIME,((QP(AOUT(J)JOUT(I))J=1.5>J=M) 
ENDIF 

D0 78I1-LN 
DO 78 12-1 JO 
pau2)-caij2) 

78 CONTINUE 
301 CONTINUE 

40 FORMAT/1XA1ZG10.2.32XA8J4A5J) 

41 FORMAT(lX*A7.5(A7,I3.A2)) 

42 FORMAT(1ILA3.5<2X,G10.2)) 

43 FORMAT(lX^t54(2XJ10Z)) 

44 FORMAT(lXJ,4(A5,V).E153) 

45 FORMAT(1X.20(4/E153,',’)J)) 

46 FORMAT/13L21/E15.5,',')) 

47 FORMATdX.’nME.'^O/AiJS,’,')) 

49 F0RMAT/1X,72/'-’)) 

STOP 

END 

C 

C this subroutine is being called by maine routine once to get the intial 
c values and the neccessary parameters 
C 

SUBROUTINE INITIAL_Z 
IMPLICIT REAL*8(A-H,0-Z) 

INTEGER IOUT(5)»AOUT(4) 

REAL*4 K F(4).END 

REAL* 8 M AVEJV1_W(4).C_F0(4)JN_L1 JN_L2JN_L3JN_L4, 
• IN_L5JN_L6,ss(4),q2(4) 

CHARACTERS LABEL/4) 

CHARACTER’S DATE 
CHARACTER* 14 INFILEAJNFILEB 
COMMON/DATE/DATE 
COMMON/PLOT/ISATXABEUAOUTJOUT 
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COMMON/BND_Z/C(14,301 )3(14.301 ),N,NJ 

common/prop_b_z/d_ld_es_b,con_wa,con_wi_q.con_wi_k, 

. CP WA,CP_W1_Q,CP_WI_K.R0_WA,R0_WI_Q,R0_WI_KJ(_WA.X wi_q, 

. x_wi_k..d_lmld_lma.h_fw,h ow 

COMMON/PROP S Z/CP S,RO_S,AINT,R_P,D_P,CON_S,G_F,HEAT(4).M_W 
COMMON/PROP_D_Z/DELZ 1 J)ELT1 ,DELT.DELZ,U_F1 Z.END.NC JLLL.K_F 
COMMON/BOUN_CON/BC_L13C_L23C L33C_L43C_L5 3C_L6,BC_C(4),TO 
COMMON/PRO IND/ITEST2JTEST1 
COMMON/INDIC/LlJ-2X3IAX5X6,TIME 
COMMON/INDICl/IND(4) 

COMMON/NCY/NC1 
COMMON/C AS/INERT.NCOMP 

C0MM0N/PRIME/GN2.RA3AV.EPSEX.EPSIN.ALF.RH0S.ALPHA1 
C WRrTE(*,*)"SELECT FILE CONTAINING INPUT SET A" 

INFILEA = DATE // '_A3AT 

OPEN (UNIT=40,FILE=INFILEA,STATUS='OLD') 

C WRITE(*,*)'SELECT FILE CONTAINING INPUT SET B‘ 

TN FII.FR = DATE // '_B3AT 

OPEN (UNIT=41,FILE=INFTLEB.STATUS='OLD’) 

C 

C INITIALIZATION 
C 

READfUNIT=403MT=*)END.DELTl^JX)ELZl.TO.G_F,T_O,NCJNERT.P_TOT. 

. BC_C(1)3C C(2)3C_C(3)3C_C(4)Z,D_E,D_LR0_WA.EPSEX, 

. AINT,CON S,CP_S,H_FW3_OW,RO_S v M_W(1).M_W(2)M_W(3),M_W(4). 

. HEAT(1 )3EAT(2)3EAT(3)3EAT(4)JC_F(1 )3_F(2),K_F(3),K_F(4), 

. ind(l)jnd(2)jnd(3)jnd(4)JDESlJSAT 
READ(UNrr- 41 ,FMT=*) 

. LABEL(l)3ABEL(2).LABEL(3U-ABEL(4XAOUT(l)AOUT(2). 

. AOUT(3)^OUT(4)JOUT(l)JOUT(2).IOUT(3)JOUT(4)JOUT(5), 

. S B.CON WA.CON WI_Q.CON WI K.CP WA.CP WI_Q,CP_WI_K. 

. RO WI_Q,RO WI KJ( WA,X_WI_Q.X_Wl_K.RA.RAV,EPSIN,RHOS, 

. ALPHA l.R PX> P3C L13C_L23C_L3.BC_L53C_L6, 

• ]N_L13^_L2JN_L3JN_L5JN_L6.R.PUTEST2JTEST1 
c number of component 
NC1=NC 

c number of equation 
N=NC*2+6 

ALF=(1.0D0-EPSEX)/EPSEX 
PT=P TOT*760./14.696 
Nl=l 
DO 11=1.4 

IF(IND(I1).EQ.1)THEN 

IF(I13Q.3)N2=N1 

M_W(N1>=M_W(I1) 

BC_C(N 1 )=BC_C(I1 ) 

HEAT(N1)=HEAT(I1) 

K_F(N 1 >=K_F(I1 ) 

IF(I13Q3)THEN 

IDES=N1 

IND3=N1 

ELSE IF(I13Q.4)THEN 
IND4=N1 
END IF 
N1=N1+1 
END IF 
END DO 
SUM_Y=0 
M AVE=0. 

YO=0 

c compute the initial mole fraction and average molecular weight 

do ioi=ijsrc 

Y F=BC_C(D/P_TOT 
YO=Y_F+YO 
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SUM_Y=SUM_Y+Y_F 
BC_C(I )=P_TOT* Y_F/R/BC_L1 
M AVE=M AVE+Y F*M_W(I) 

C_F(XI)=BC_Ca) 

10 CONTINUE 

M_AVE=M AVE-K1 -YO)*28.0 
RO_FO=P T0T/(BC L1*R) 

GN=G_P*RO FO/S B/60. 

U F1=G F/(S B* EPS EX) 

BC_L4=U_F1 

c make the grid size and the time step dimensionless 
DELZ-DELZ1/Z 
DELT-U_Fl*DELTiyZ 
c 

c Ll is the gas temp, L2 is the solid temp, L3 is the wall temp, L4 is the 
c velocity, LS is the total pressure, and L6 is the total pressure witout 
c thermal effect 

c 

L1=2*NC+1 
L2=L1+1 
L3=L2+1 
LA-L3+1 
L5.L4+1 
L6-L5+1 
DO 20I1=1,N 
DO 20 12=1 JW 
PaU2>=O.ODO 
C(I1J2V0.0D0 
20 CONTINUE 

c 

c set the firs: grid equal to the initial condition 
c 

D022I1=1,NC 

Cfll.l>-C_FOai) 

22 CONTINUE 
D024I1-1.NC 
D024I2=2J4J 
CaU2>=0.0 
24 CONTINUE 
DO 30 1=1 J^J 
P(L1J)=IN_L1 
P(L2J)=IN_L2 
P(L3J)=IN_L3 
P(L4J)=BC_L4 
P(L5J)=BC_L5 
P(L6J>*BC L6 
C(L1J)=BC_L1 
C(L2JVBC_L2 
C(L3J)=BC_L3 
C(L4J)=BC_L4 
C(L5J)*BC_L5 
C(L6J>=BC_L6 
30 CONTINUE 

IF(IND(3).EQ.1)THEN 
DO 11=1 J^J 
C(N2Jl)=C_FO(N2) 

END DO 
END IF 

IF(IDES1£Q.1)THEN 

SS(IDES)=C(IDES.l) 

CALL IST_Z(1.C(L2,1)3C_L1,SS.Q2) 

DO 1=1 J^C 
Q2(I)=Q2(I)*RO_S 
END DO 


D-6 



DOI=ljsIJ 

C(IDES.I)=C_FOaDES) 

P(IDES,I)=C_FO(TDES ) 

C(IDES-t-N C J)=Q2(IDES ) 

P(IDES+NCJ)=Q2(IDES) 

END DO 
END IF 

IF(ISAT.EQ. 1 )THEN 
DO!l=l,NC 

ssai>=Bc_cai) 

END DO 

CALL IST_Z(1.C(L2,1)3C_L1,SS,Q2) 

DO 1= INC 
Q2(D=Q2(I)*RO_S 
END DO 
DOIl=l.NC 
DOI2=l.NJ 

cau2>=Bc_cni) 

Cai+NCJ2)=Q2ai) 

P(I1J2)=BC_C(I1) 

pai+Ncj2>=Q2ai) 

END DO 
END DO 
DOIl=l,NC 
BC_C(I1)=0 
END DO 

BC_C(IND3)=c_fo(IND3) 
end if 
RETURN 
END 
C 
C 

c thic subroutine is being by maine routine to compute the variable in 
c C matrix, in this routine first velocity profile is being determined, the 

c conductivity, diffusivity.pososity are being calculated in this 

c routine by calling the ap prope ri ate subroutine, the routine obtained the 
c C matix in axial and radial directions, it i crates till it conveges to the 
c allowable error 
c 

SUBROUTINE FUNCTl(J) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*4 K F(4),END 

REAL*8 M AVEJv1_W(4),KGASjC_FP(4301).Cl(14,301X 
. Pl(14301)iEY_P(301)JCEFFD_U4).H(4),YO(4XSS(4} 

DIMENSION Q2(4),C2( 14.301 ) J 5 E_N_M(4),RATE_C2f 301 ) 

COMMON/PR_OLD_Z/ RO_P(301),CP_P(301),CON_FPP(301 ), 

. CON_LPP(301 )D_LPP(430 1 )N_FP(301 )3_TTP(301 ),H_IIP(301 \ 

. H_OWPP(301 ),H_FWPP(301 ),Q(4,301),VISC_P(301 ),RATE_C 1(301) 
COMMON/BND/A(14.14).B(14.14),C(14,301),D(14,29)J£(14,14), 

. Y(14,14),G(14)NNJJTPRTJTCNT,F(14)J>(14301) 

COMMON/PROP BJZJD LD_E.S_B,CON_WA,CON_WI_Q,CON_WI_K. 

. CP_WA.CP_WI_Q.CP wf_K,RO_WA,RO_WI_Q,RO_WIJCX_WAJC_WI_Q. 

. X WI_KD LMLD LMAN_FW.H_OW 
COMMOn 3 > ROP_S_Z/CP_S.RO S^INT.R_P.D_P.CON_S.G_F.HEAT(4)M_W 
COMMON/PROP D.Z/DELZ 1 DELT 1 DELT.DELZ.U_F 1 iENDNC JLLUK_F 
COMMON/INDIC/LlX2X3i4J-5X6.TIME,PERERRNIT 
COMMON/INDICl/IND(4) 

COMMON/PRO IND/TTEST2JTEST1 

COMMON/BOUN_CON/BC_L13C_L23C_L33C_U3C_L53C_L6.BC_C(4).TO 

COMM ON/GAS/INERT NCOMP 

COMMON/PRIME/GNZRA.RAV.EPSEX.EPSINALF.RHOS.ALPHA1 

DATA R3UCOM/10.73D0.3.141593D0.1/ 

C IF(LL3QJCOM)THEN 
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C BC_L1=TEMPIN(TIME) 

C ICOM-LL+1 

C END IF 

IF(ITEST1.EQ.1)THEN 

D_T=D_E+D_I 

X_W=D_E-D_I 

c calculate the area for the heat transfer, inside and outside 
A 02*D_I/((DJ+D_E)*X W) 

A INS*2*D_E/((D_I+D E)*X_W) 

RO_F*C(L5,l )/(C(Ll .1 )*R) 
c calculate superfictial mass velocity 
GN2=G_F*RO_F/S B/60. 

IF(ITESTliQ.l .OR.ITEST2.EQ.l)THEN 
DO 199 J 1 «= 1 »NJ 
R0_F=C(L5J1)/(C(LU1)*R) 

YTOT-O. 

c calculate the mole fraction 
DOI1-1.NC-1 
Yoai)-caui)/Ro_F 
YTOT=YO(Il)-t-YTOT 
END DO 
YO(NC)-1-YTOT 
M.AVE-O. 

c calculate the average molecular weight 
DOI1-1.NC 

M_AVE-M_AVE+M Wai)*YOai) 

END DO 

M AVE-M AVE+{1-YTOT)*2S.O 
TEMP-C(L1J1) 

GN-GN2 

c calcilate the viscosity 

VISC.P(J1)=VIS(TEMP)*60 
c calculate reynold's number 
REY«RE(GN.TEMP) 

c calculate the heat capacity of the fluid flow 
CP_P(J1 )-CPGAS(TEMP.YO) 
c calculate the film coefficient between the particle and fluid 

H_FP(J1 >-HFILM(M_AVE,TEMP.REY.CP_P(Jl ))*60. 
c chane the unit on pressure 

PP*C(L5J1 )*7 60714.77 
c calculate the axial effective conductivity 

CON_LPP(J1>»EFFK(GN,TEMP,CP_P(J1),RO_F,PP,YO)*60. 
c calculate axial mass dispersion for each component 
DOI1-1.NC 

D_LPP(I 1.J1 >=EFFDai.GN.TEMPJlO_F.PP.YOr60. 
IF(D_LPP(IU1 ).LT.O) THEN 
D_LPP(IU1>=D_LPP(IU1-1) 

END IF 
END DO 

199 CONTINUE 
END IF 
ITEST1-0 
ENDIF 

c start itration for each time step 
IF(MT.EQ.1)THEN 
DOI1-1.NC 
D Lai)=D_LPPaiJ) 

END DO 
DOI1-1.NC 

ssai>-cau) 

END DO 

c calculate the equlibrum 2*IST theory; l=Langmuir theory 
CALL IST_Zd.C(L2J%BC_Ll.SS,Q2) 

DO 40 1=1 ,NC 
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Q(IJ)=Q2a)*R0 S 
40 CONTINUE 

c compile the C array for the first grid 
IF(J£Q.1)THEN 

c compute molar concentration of each component 
DO 85 M1*1,NC 
PE_N_M(M 1 )=U_F1 *2/D_L(Ml ) 

85 CONTINUE 
C_TOT=0 
DO 90M1=1.NC-1 
F2=ALF*K_F(M 1 )* AINT*Z/U_F 1 

F(M1)=1 .0D0/PE_N_M(M 1 )/DELZ**2*(BC_C(Ml )-2*C(Ml.J)+ 

. C(M1J+1 ))-l .0D0AJ_FI/DELZ*(C(M1 J)-BC_C(M1 ))*C(L4 J>- 

. F2 < ‘(Q(MlJ>C(NC+Ml t J))-(C(MU>-P(MUJ))/DELT 
C TOT=CJTOT-hC(M1J) 

90 CONTINUE 

F(NCMC(L5J)-C.TOT*C(LlJrRV(C(Ll.J)*R)-C(NCJ) 
c compute amount adsorbed on the pellet 
DO70Ml=lNC 
F1=K F(M1 )*AINT*Z/U_F1 

F(NC+M 1 )=F1 * (Q(M 1 jyCQA 1 +NCJ)MC(M 1 +NC, J)-P(NC+M U))/DELT 
70 CONTINUE 
FLUX 1=0 
FLUX2=0 
DO 100M1=1NC 
c compute total amount adsorbed 

FLUX0=AINT*K_F(M 1 )* (Q(M 1 J>C(NC+M 1 J)) 
FLUX2=FLUX2+FLUX0 
FLUX 1 =FLUX1 +FLUX0*HEAT(M1 ) 

100 CONTINUE 

RATE C1(J)=FLUX2 
RATE C2(J)=FLUX1 
C 

C 

C THE LAST ROW 
C 

c compute the C array for the last grid 
ELSE IF(J .EQ. NJ) THEN 
DO 125 M1=1NC 
PE.N_M(M1)=U F1*Z/D_L(M1) 

125 CONTINUE 
C_TOT=0 

c compute the molar concentraion of each component 
DO 130M1=LNC-1 
F2=ALF*K_F(M 1 )* AINT*Z/U_F 1 

F(M1)=1.0D0/PE N M(M1)/DELZ**2*(2*C(M1 J-1)-2*C(M1 J))- 
. 1.0D0AJ^Fl/DELZ*(C(MlJ)-C(MU-l)rC(UJ)-F2*(Q(MlJ> 

. C(NC+M 1J)HC(M 1,J)-P(M1 J))/DELT 
C_T0T=CJT0T4C(M1,J) 

130 CONTINUE 

F(NCHC(L5JK:„TOT*C(LUrRy(C(Ll t J)*R>-C(NC f J) 
c compute the amount adsorbed on the bed 
DO 110 M1=1,NC 
FI =K_F(M 1 )* AINT*Z/U_F 1 

F(NC+M 1 )=F 1 * (Q(M 1 JyC (M 1 +NC J)MC(M 1 +NC, J) -P(NC+M 1 J))yDELT 
110 CONTINUE 
FLUX 1=0. 

FLUX2=0. 

DO 140M1=1NC 

c compute total amount adsorbed on the particle 

FLUX0=AINT*K_F(M 1 )*(Q(M 1 J>C( NC+M 1 J)) 
FLUX2=FLUX2+FLUX0 
FLUX1 =FLUX 1 +FLUX0* HEAT (Ml) 

140 CONTINUE 
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RATE C1(J)=FLUX2 
RATE_C2(J)=FLUX1 
C 

c 

c 

C INTERIOR ROWS 
C computation of C any for interior grids 
ELSE 

DO 165 M1*1,NC 
PE_N M(M1)=U_F1*Z/D_L(M1) 

165 CONTINUE 
C.TOT-O. 

c compote die molar concentration 
DO170M1-1.NC-1 
F2-ALPK F(MirAINT*Z/U.Fl 

F(Ml>«1.0DO/PE_N_M(MiyDELZ**2*(C(MU-l)-2*C(MU> 

. C(MlJ+l))-1.0D0AJ_Fl/DELZ*(C(MlJ>C(MU-l)rC(L4J)- 
. F2*(Q(M1J)-C(NC+M1J))-(C(MU>P(MU))/DELT 

C TOT-C_TOT+C(MU) 

170 CONTINUE 

F(NCMC(L5J>-C_TOT*C(LlJ)*R)/(C(LlJ)*R)-C(NCJ) 
c compute the amount adsorbed on 
DO 150 M1*1,NC 
Fl-K F(M 1 )* AINT*Z/U_F 1 

F(NC+M1>»F1*(Q(MU>C(M1+NCJ)HC(M1+NCJ)-P(NC+MU))/DELT 
150 CONTINUE 
FLUX 1-0. 

FLUX2-0. 

DO180M1-LNC 
c compute toal amount adsorbed 

FLUX0*AINT*K_F(M 1 )• (Q(M 1 J)-C(NC+M 1 J)) 
FLUX2-FLUX2+FLUX0 
FLUX1*FLUX1+FLUX0*HEAT(M1) 

180 CONTINUE 

RATE C1(J>»FLUX2 
RATE_C2(J>=FLUX1 

C 

END IF 

ELSE 

c compute the C array for the first grid 
C 

RO_F-C(L5JV(C(LlJ)*R) 

CP_F-CP_P(J) 

H_FS«H_FP(J) 

CON_L-CON_LPP(J) 
c Peclet number for the solid 

PE_N_S»U_F1 *RO_S*CP_S*Z/CON_S 
c Peclet number for the heat 

PE_N_H=U_F1 *RO_F*CP_F*Z/CON_L 
c these are coefficient the Discretized PDE's 

F3=ALF*H_FS*Z*AINT/(RO F*CP_F*U_F1) 

F4-H FW*Z*4/(U_F1*D l*EPSEX*RO_F*CP_F) 

F5-H FS*AINT*Z/(U_Fl*RO S*CP_S) 

F6-Z/7RO S*CP_S*U_F1) 

F7«Z*H FW*A CAJ Fl/RO WA/CP WA 
F8-Z*H OW*A INS/U_Fl/RO_WA/CP_WA 
IF(J.EQ.I)THEN 
c compute gas temperature 

F(1)-1.0D0/PE N_H/DELZ**2* (BC_L1 -2*C(1 J>+C(U+1 ))- 
. 1.0DO/(DELZ*U_F1)*(C(1J)-BC_L1)*C(L4J>F3 , (C(1J)-C(2J)) 

. -F4*(C(1J>C(3J)HC(1.J)-P(1J))/DELT 
c compute the solid temperature 

F(2)=l .0D0/PE_N_S/DELZ**2*(BC_L1 -2»C(2J>+C(2J+1)K 
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. F5*(C(1,J)-C(2J))-F6*RATE_C2(J)-(C(2J)-P(2J))/DELT 

c compute the wall temperature 

F(3)=F7*(C(l,J)-C(3.J))-F8*(Cf3J)-TO)-(C(3J)- 
. P(3,J))/DELT 
C 

C 

C THE LAST ROW 
C 

ELSE IF(LEQ.NJ)THEN 
c compute the gas temperature' 

F(1)=1.0DO/PE N_H/DELZ**2*(C( 1 J- 1 >-2.*C(U>+ 

. C(lJ-l))-1.0DO/(DELZ*U_Fir(C(lJ>C(U-l)rC(U.J)- 
. F3*(C(lJ)-C(2J))-F4*(C(lJ)-C(3J)HC(U)-P(U)y 
. DELT 

c compute the solid temperature 

F(2>*1.0D0/PE N_S/DELZ**2*(C(Z J- 1 )-2*C(2J)+C(2,J- 1)>+ 

. F5*(C(1J>-C(2J))-F6*RATE_C2(J)-(C(2J>P(2J))/DELT 
c compute the wall temperature 

F(3)»F7*(C(U)-C(3J)>.F8*(C(3J)-TOHC(3J)- 
. P(3J)VDELT 
ELSE 

C 

C THE INTERIOR ROW 
C 

c compute gas temperature 

F(1)=1.0D0/PE N H/DELZ**2*(C(1 J-l )-2*C(l J)+C( 1 J+l )> 
. 1.0D0/(DELZ*U_F1)*(C(1J>-C(1 J-1))*C(L4,J)-F3* 

. (C(lJ)-C(2J)yF4*(C(U)-C(3J)>-(C(U)-P(U)yDELT 
c compute solid temperature 

F(2)=1.0D0/PE N S/DELZ**2*(C(2,J- 1 )-2*C(2J}+C(2, J+l )>t- 
. F5*(C(lJ>C(2J))-F6*RATE_C2(J>-(C(2J>P(2J))/DELT 
c compute wall temperature 

F(3>»F7*(C(1J)-C(3J)>*F8*(C(3J)-T0)-(C(3J>- 
. P(2J)VDELT 
END IF 
END IF 
210 RETURN 
END 


C 

c 

c this subroutine is being call ed by maine routine to compute the variable in 
c C matrix, in this routine first velocity profile is being determined, the 

c conductivity, diffusivity.pososity are being calculated in this 

c routine by calling the ap pro peri ate subroutine, the routine obtained the 
c C matix in axial and radial directions, it itrates till it conveges to the 
c allowable error 


SUBROUTINE FUNCT0O) 

IMPLICIT REAL* 8( A-H.O-Z) 

REAL*4 K_F(4XEND 

REAL*8 M AVEA1_W(4)JCGASJC_FP(4301XC1(14.301X 
. PI (14.301 )^EY_P(301 ) JCEFFJ)_L(4) Jl(4),YO(4),SS(4) 

DIMENSION Q2<'4).C2(14,301).PE_N_M(4) 

COMMON/PR OLD Z/RO P(301),CP_P(301XCON_FPP(301), 

. CON_LPP(301XD_LPP(4301)Ji_FP(301XH_TTP(301XHjn>(301), 

. H OWPP(301XH FWPP(301 ),Q(4.301 X VISC_P(301 XRATE_C1 (301 ) 
COMMON/BND/A(14,14XB(14,14XC(14301)J)(14^9XX(14,14X 
. Y(14.14XG(14XNJ4IJTPRTJTCNT,F(14).P(14301) 

COMMON/PROP B JZ/D LD E.S B.CON WA.CON_WI_Q,CON_WI_K, 

. CP WA.CP_WI_Q.CP WI_K.RO_WA,RO_WI_Q.RO_WI_lQC_WAJ(_WI_Q. 

. X_WI KD_LMLD_LMAD_FW.H_OW 
COMMON/PROP_S_Z/CP S,RO_SAINT,R P,D_P,CON_S.G_F,HEAT(4)J4_W 
COMMON/PROP.D Z/DELZ1 DELT 1 JDELT,DELZ,U_F1 Z^ND J4C JLLL,K_F 
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C0MM0N/INDIC/L1 .L2,L3.L4X5.L6.T1ME,PERERR 
COMMON/INDICl/IND(4) 

COMMON/PROJND/TI EST2JTEST1 

COMMON/BOUN_CON/BC Ll^C_L2,BC_U3C_UJC_L53C_L6.BC_C(4),TO 
COMMON/GAS/INERT.NCOMP 

COMMON/PRIME/GNZRA,RAV.EPSEX.EPSIN.ALF,RHOS,ALPHAl 
DATA R.PIJCOM/1 0.73D0.3 .14 1 593 DO, 1/ 


c 

C ff(LLEQJCOM)THEN 
C BC LI =TEMPIN(TIME) 

C ICOM=LL+l 

C END IF 

IF(TrEST13Q.l)THEN 
D T=D E+D_I 
X_W«D_E-DJ 

c calculate the area for the heat transfer, inside and outside 
A C=2*D_I/((D_I+D_E)*X_W) 

A INS*2*D E/((D_I+D_E)*X_W) 

RO_F-C(L5.1V(C(Ll.irR) 

c calculate superfictial mass velocity 
GN2=G F*RO_F/S_B/60. 

IF(ITEST13Q.l .OR. ITEST2.EQ.1)THEN 
DO 199 J1=1,NJ 
RO F=C(L5J1)/(C(L1J1)*R) 

YTOT=0. 

c calculate the mole fraction 
DOIl*l.NC-l 
YOai)-CaiJl)/RO_F 
YTOT-YOaiHYTOT 
END DO 

YO(NC>»l -YTOT 
M.AVE-0. 

c calculate die average molecular weight 
DOI1-1.NC 

M AVE=M_AVE+M_W(I1)*Y0(I1) 

END DO 

M AVE=M AVE-K1-YTOTT28.0 
TEMP-C(L1J1) 

GN=GN2 

c cal ci late the viscosity 

VISC_P(J1)=VIS(TEMP)*60 
c calculate reynold's number 
REY*RE(GN,TEMP) 

c calculate the heat capacity of the fluid flow 
CP_P(Jl)=CPGAS(TEMP,YO) 
c calculate, die film coefficient between the particle and fluid 

H_FP(J1 >-HFILM(M_AVE,TEMP,REY.CP_P(Jl ))»60. 
c chane the unit on pressure 

PP»C(L5Jl)*760yi4.77 
c calculate the axial effective conductivity 

CON_LPP(Jl )-EFFK(GN,TEMP.CP_P(Jl ),RO_F.PP. YO)*60. 
c calculate axial mass dispersion for each component 
DOI1-1.NC 

D LPP(I1J1)*EFFD(I1,GN,TEMPJIO_F,PP,YO)*60. 

IF(D LPP(I1J1).LT.0) THEN 
D LPPaUl>=D_LPPaUl-l) 

END IF 
END DO 

199 CONTINUE 
END IF 
ITEST1-0 
ENDIF 

c start itraticm for each time step 
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R0_F=C(L5 J)/(C(L1J)*R) 

CP_F=CP_P(J) 

H_FS=H_FP(J) 

CON_L=CON_LPP(J) 

DO 11=1 J^C 
D_L(I1)=D_LPP aiJ) 

END DO 

c Peclet number for the solid 

PE_N_S=U_F1 *RO_S*CP_S*Z/CON_S 
c Peclet number for the heat 

PE_N_H=U_F1 *RO_F*CP_F*Z/CON_L 
c these are coefficient the Discretized PDE's 

F3=ALF*H FS*Z*AINT/(RO_P'CP F*U_F1) 

F4=H JFW*Z*4/(U_F1 *D I*EPSEX*RO_F*CP_F) 

F5=H FS*AINT*Z/(U Fl*RO_S*CP_S) 

F6=AINT*Z/(RO_S *CP S*U_F1) 

F7=Z*H FW*A_C/U_Fl/RO_WA/CP_WA 
F8=Z*H OW*A_INS/U Fl/RO_WA/CP_WA 
DO U=LNC 

ss<ii)-cau) 

END DO 

c calculate the equlibrum 2=IST theory; l=Langmuir theory 
CALL IST^(LC(L2J)JBC.LLSS,Q2) 

DO40I=l,NC 
Q(U)=Q2(I)*ROJ5 
40 CONTINUE 

c compute the C array for the first grid 
IF(LEQ.1JTHEN 

c compute molar concentration of each component 
DO 85 M1=1,NC 
PE_N_M(M 1 )=U _F1 *Z/D_L(M 1 ) 

H(M 1^ 1 .0D0/DELT +2/PE_N_M(M 1 )/DELZ**2+ 1 /U_F1 /DELZ*C(L4 J) 
85 CONTINUE 
C.TOT=0 
DO 90 M1=1*NC-1 
F2=ALF*K F(M1)*AINT*Z/U_F1 

F(M 1 )=-C(M 1. JH 1 VH(M 1 )*( l .ODO/PE_N _M (M 1 )/DELZ**2* (BC_C(M 1 K 
. C(M1J+1 ))-1.0DO/U F1/DELZ*(-BC_C(M 1 )*C(L4J))-F2*(Q(M1,J)- 

. C(NC+M 1 J)KP(M LD/DELT) 

C TOT=C TOT-rC(MlJ) 

90 CONTINUE 

F(NCHC(L5J)-C.TOT*C(LlJ)*Ry(C(LLJ)*R)-C(NC4) 
c compute amount adsorbed on the pellet 
DO 70 M1=1,NC 
F1=K F(M1)*AINT*Z/U FI 
A2=1/DELT+F1 

F(NC+MI)=-C(NC+MIJ>1/A2*(F1*Q(M1JHP(NC+M1J)/DELT) 

70 CONTINUE 
FLUX 1=0 
FLUX2=0 
D0100M1=1JMC 
c compute total heat of adsorption 

FLUXl=FLUXl+HEAT(Ml)*(K_F{Mlr(3(MU^C(NC+K;: t J))) 
c compute total amount adsorbed 

FLUX2=FLUX2+AINT* K_F(M 1 )*(Q(M1 J>C(NC+M 1 f J)) 

100 CONTINUE 

RATE_C1 (J)=FLUX2 
c compute gas temperature 

ALl=iyDELT+27PE.N_H/DELZ**24C(L4J)/DELZ/U_Fl+F3+F4 
F(L1)*-C(LU>»-UAL1*(1.0D0/PE.N H/DELZ**2*(BC L1+C(LU+1))- 
. 1.0D0/(DELZ*U_Fl)*(-BC_Ll*C(L4J)>F3*(-C(L2,J))-F4*(-C(L3 f J)>K 
. P(L1,J)/DELT) 
c compute solid temperatyre 

F(L2)=-C(L2J>fDELT^n .0D0/PE_N_S/DELZ**2*3C_L1 -2*C(L2J> 
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. C(L2J+1)>+F5*(C(L1J)-C(L2J))-F6*FLUX1)+P(L2J) 
c compute wall temperature 

F(L3)=-C(L3J>+DELT*(F7*(C(Ll,J)-C(L3J))-F8*(C(L3J)-TO))+ 

. P(UJ) 

C 

c 

C THE LAST ROW 
C 

c compute the C array for the last grid 
ELSE IF(J .EQ. NJ) THEN 
DO 125 M1-1.NC 
PE N_M(M 1 )»U_F1 *Z/D L(M1) 

H(M 1 )= 1 .DO/DELT +2.D0/PE_N_M(M 1 )/DELZ**2+ 1 /U_F1/DELZ*C(L4J) 
125 CONTINUE 
C_TOT=0. 

c compute the molar concentraion of each component 
DO 130M1=1,NC-1 
F2»ALF*K_F(M1)*AINT*Z/U_F1 

F(M 1 >-C(M 1JHU»/H(M 1 r ( 1 -0DO/PE_N_M(M 1 VDEL2**2* 

. (C(MlJ-l>+C(MU-l))-1.0D0/U_FiyDELZ*(-C(MU-ir 

. C(UJ»-F2*(Q(MU)-C(NC+MU)>+P(MUVDELT) 

TOT C-CCMIJH-TOT C 
C TOT-C TOT+C(MU) 

130 CONTINUE 

F(NCMC(L5J)-C_T0T*C(L1J)*RV(C(L1J)*R)-C(NCJ) 
c compute the amount adsorbed on the bed 
DO 110M1-LNC 
F1«K_F(M1)*AINT*Z/U_F1 
A2-1/DELT+F1 

F(NC+Ml^-C(NC+MlJHl/A2*(Fl*Q(MU)+P(NC+MUyDELT) 

110 CONTINUE 
FLUX1=0. 

FLUX2-0. 

DO 140 M1-1.NC 
c compute total heat of adsorption 

FLUX 1 *FLUX 1 +HEAT (M 1 )*(K_F(M 1 )*(Q(M 1 J>C(NC+M1J))) 
c compute total amount adsorbed on the panicle 

FLUX2-FLUX2+AINT* K_F(M 1 )-(Q(M 1 J)-C(NC+M U)) 

140 CONTINUE 

RATE_C 1 (J)=FLUX2 
c compute the gas temperature 

AL1=17DELT+27PE_N H/DELZ»*2+C(UJ)/DELZ/U_Fl+F3+F4 
F(L1 >=-C(Ll J>t-1 7AL1 •( 1 .0D0/PE_N_H/DELZ**2*(C(L1 J- 1 )+ 

. C(L1J- 1 ))- 1 .0D0/(DELZ*U_F1 )*(-C(Ll 1 )*C(L4 J)>- 
. F3*(-C(L2J))-F4*(-C(L3J))+P(LUyDELT) 
c compute die solid temperature 

F(L2)-C(L2JHDELT*(1.0D0/PE_N_S/DELZ**2*(C(L2J-1)- 
. 2*C(L2J)+C(L2J-l))-t-F5 , (C(m>-C(L2J))-F6*FLUXl>t-P(L2J) 
c compute the wall temperature 

F(L3KC(L3J)+DELT*(F7*(C(L1J)-C(UJ))-F8*(C(L3J>T0)>+ 

. P(L3J) 


C 

C 

c 

C INTERIOR ROWS 
C computation of C aray for interior grids 
ELSE 

DO 165 M1=1.NC 
PE N_M(M1)«U_F1*ZD L(M1) 

H(M1 )=1.EX)/DELT+1D0/PE_N_M(M1)/DELZ**2+1 JWU_F1/DELZ* 
. C(L4J) 

165 CONTINUE 
C TOT=0. 
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c compute the molar concentration 
DO 170M1=1JMC-1 
F2=ALF*K_F(M 1 y AINT*Z/U_F1 

F(M 1 )=-C(M 1.J>+1 DO/H(M 1 )•( 1 .ODO/PE N_M(M 1 )/DELZ**2* 

. (C(M1,J-1>+C(M 1 J+l )>- 1 .0D0/U_F1/DELZ*(-C(M1J-1)* 

. C(L4J))-F2* (Q(M 1 ,J>C(NC+M 1 J)>t-P(M 1 J)/DELT) 

C_TOT*=C_TOT+C(M 1J) 

170 CONTINUE 

F(NCHC(L5JK_TOT»C(LlJ)*RV(C(Ll.J)*R)-C(NC,J) 
c compute the amount adsorbed on 
DO 150 Ml=lvNC 
F1=K_F(M1)*AINT*Z/U_F1 
A2=1/DELT+F1 

F(NC+M 1 >=-C(NC+M 1 J>t-1 D0/A2*(F1 *Q(M 1 J)+P(NC+M 1 J)/DELT) 
150 CONTINUE 
FLUX1=0. 

FLUX2=0. 

DO 180 M1=1»NC 
c compute total heat of adsorption 

FLUX1 =FLUX 1 +HEAT(M 1 )*(K_F(M 1 )*(Q<M 1 J>C(NC+M 1,J))) 
c compute toal amount adsorbed 

FLUX2=FLUX2+AINT*K_F(M 1 )*(Q(M1J)-C(NC+M 1.J)) 

180 CONTINUE 

RATE_C 1 (J>= FLUX2 
c compute gas temperature 

AL1 = 1 7DELT +27PE_N H/DELZ**24C(UJ)/DELZ/U_F1+F3+F4 
F(L1>-C(LU>UAL1*(1.0D0/PE_N_H/DELZ**2*(C(L1,J-1>+ 

. C(L1 J+l ))- 1 .0D0/(DELZ* U_F1 )* (-C(L1 J- 1 )*C(L4,J))-F3* 

. (-C(L24))-F4 , (-C(L3 J)>t-P(L1 J)/DELT) 
c compute solid temperature 

F(L2)=-C(L2JHDELT*(1.0D0/PE_N_S/DELZ**2*(C(L2J-l)-2* 

. C(L2J)+C(L2,J+1)HF5*(C(L1.J}-C(L2.J))-F6*FLUX1)+P(L2,J) 
c compute wall temperature 

FCL3)=-C(L3J)+DELT*(F7*(C(L1,J)-C(L3,J)>-F8*(C(L3 J>TO)>+ 

- P(L3J) 

END IF 
210 RETURN 
END 


C 

C 

c 

C THIS SUBROUTINE IS BEING CALLED BY DIFFEQ1 WHICH IS ALSO BEING CALLED BY 
C SUBROUTINE FUNCT2_Z TO COMPUTE THE VELOCITY AND THE PRESSURE DROP IN THE BED. 
C THE EQUATIONS ARE BEING SOLVED BY NEWMANS METHOD. 

C 

SUBROUTINE FUNCT2(J) 

IMPLICIT REAL*8(A-H.O-Z) 

REAL*8 D_L(4),M AVE 

COMMON/OLD/ AA(14) t SUM(14),COLD(14,301) 

COMMON/BND/A(14.14)3U4.14),C(14.301).D(14,29)JC(14,14), 

. Y(14.14),G(14XNJ«JTPRTJTCNT.F(14)J>(14301) 

COMMON/PP,_3LD_Z/ RO_P(301 ),CP_P(301 ),CON_FPP(301 ), 

. CON_LPP(301)X>_LPP(4301)J1_FPP01),H_TTP(301).HJIP(301 ), 

. H_OWPP(301).H_FWPP(301), Q(4.301), VISC P(301).RATE_C1(301) 

COMMON/BOUN CON/BC_L13C L23C L3,BC_U3C_L53C_L63C_C(4) 

COMMON/P RIM E/GN2.RA.RAV.EPSEX.EPSIN.ALF.RKOS.ALPHA1 
COMMON/PROP S_Z/CP_S.RO_SjMNT.R_P.D_P.CON_S.G_F,HEAT(4) 
COMMON/PROP_D_Z/DELZlJ)ELTl 
COMMON/NCY/NC1 

DATA L1.L4,L5,L6,R1,CONV/4.1.2,3.555.0.51. 714752314/ 

DATA FAC.GC.M_A VE/2.78450526316,416975040.0,28.0/ 

C 

C 
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C MASS TRANSFER FROM THE BULK OF GAS SRTEAM TO THE SURFACE OF ABSORBENT 
C 

C ESTABLISHED COEFFICIENT MATRIX 
C 

C THE FIRST ROW 
C 

c set parameters, total adsorbed, viscocity, density 
NC=NC1 

RATE_C»RATE_C1(J) 

VISC_F=VISC_P(J) 

KK«0 
SUM 1-0. 

DO I-1.NC 
D_L(I>-D_LPP(IJ) 

IF(D_L(I).GT.0)THEN 

KK-KK+1 

SUM1«SUM1+D_L<I) 

END IF 
END DO 

D L AVE-SUM1/KK 
RO F-C(L5,J)/(C(L1J)*R1) 

IF(JEQ.1)THEN 

c compute the velocity for the first grid 

F(U^FAC*(C(L5 J)-BC_L5*CONV)/DELZl +UGC*(RO_F*M_AVE*C(U J)* 

. (C(UJ>BC L4)/DELZl+150*(l-EPSEX)**2*VISC_F*C(L4.J)/ 

. D P/D_P/EPSEX/EPSEX+ 1 .75*( 1 -EPSEX)*RO_F*M_A VE*C(IAJ)**2/ 

. D_P/EPSEX+RO_F*M_AVE*(C(L4 J)-P(L4 J))/DELT1 ) 
c compute the presure without the heat effect 

F(L5HC(L5.J)-P(L5J))/DELT1-D_L_AVE/DELZ1**2*(BC_L5*C0NV- 
. 2*C(L5J>+C(L5,J+l)>+C(L4J)*(C(L5J)-BC_L5*CONV)/DELZl-t- 
. C(L5J)*(C(L4J>BC_L4)/DELZl +R1*C(L1J)*ALF*RATE_C 
c compute the pressure with heat effect 

F(L6>«(C(L6J)-P(L6J)VDELTl-D_L_AVE/DELZl**2*(BC_L6*CONV- 
. 2*C(L6J>+C(L6J+l)>+C(L4J)*(C(L6J)-BC_L6*CONVyDELZl-t- 
. C(L6J)*(C(UJ>BC_UVDELZ1-C(L6J)/C(LU)*((C(LU> 

. P(L1J))/DELT1 -D L A VE/DELZl ••2«(C(LU+1 >-2*C(LU>+BC_Ll )+ 

. C(L4 J)*(C(Ll J+l >BC LI )/(2*DEL21 ))+Rl *C(L1J)* ALF*RATE_C 


C 

C 

C the last grid 

ELSE IF(JEQ.NJ)THEN 
c compute the velocity 

F(U>»FAC*(C(L5J>C(L5J-l)yDELZl+l./GC*(RO_F*M_AVE*C(L4Jr 
. (C(L4J)-C(L4 J- 1 ))/DELZl + 1 50* ( 1 -EPSEX)**2* VISC_F*C(L4jyD JP/ 

. D_P/EPSEX/EPSEX+1.75*(l-EPSEX)*RO_F*M_AVE*C(L4,J)**2/D_P/ 

. EPSEX+RO_F»M_AVE*(C(L4J)-P(UJ))/DELTl) 
c compute the pressure without the heat effect 

F(L5MC(L5J)-P(L5 J))/DELT1 -D_L_A VE/DELZl ”2*(C(L5 J-l )- 
. 2*C(L5J>+C(L5,J-1)>+C(L5J)*(C(L5J>-C(L5J-1)VDELZ1+ 

. C(L5J)*(C(UJ)-C(UJ-l)yDELZl+RI*C(LlJ)*ALF*RATE_C 
c cmpute the presure with the heat effect 

F(L6>=(C(L6,J>-P(L6J))/DELT1-D L AVE/DELZl*»2*(C(L6J-l)- 
. 2*C(L6J>+C(L6J- 1 )>+C(U J)*(C(L6 J)-C(L6 J-l ) VDELZ1+ 

. C(L6 J)*(C(L4 J>C(L4 J- 1))/DEL21 -C(L6 jyC(LlJ)*((C(Ll J)- 
. P(L1J))/DELT1 -D_L_A VE/DELZl •*2*(C(LU-1 )-2*C(Ll,J>+C(LU-l )H 
. C(L4J)*(C(LlJ-lK(LU-l))/(2*DELZl)>fRl*C(LU)*ALF*RATE_C 


C 

C 

C 

c interior grids 
ELSE 
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c compute velocity 

F(L4^FAC*(C(L5J)-CfL5J-l))/DELZl+UGC*(RO_F*M_AVE*C(L4J)* 

. (C(U J)-C(U J-l ))/DELZl +150*( 1 -EPSEX)**2* VISC_F*C(L4 J)/D_P/ 

. D P/EPSEX/EPSEX+1 .75*( 1 -EPSEX )*RO_PM_A VE*C(L4 J)**2/D_P/ 

. EPSEX+RO_F*M_AVE*(C(UJ)-P(U t J))/DELTl) 
c compute pressure without the effect 

F(L5>=(C(L5,J)-P(L5.J))/DELT1 -D_L_AVE/DELZ1 -2*(C(L5J-1)- 
. 2*C(L5J)+C(L5,J+1)>+C(L4J)*(C(L5,J)-C(L5J-1))/DELZ1+ 

. C(L5.J)*(C(L4 J)-C(L4 J- 1 ))/DELZ 1 +R 1 *C(L1 ,J)* ALF*RATE_C 
c compute the presure with heat effect 

F(L6)=(C(L6, J)-P(L6,J)VDELT 1 -D_L_A VE/DELZ1 **2*(C(L6 J-l )- 
. 2*C(L6J>+C(L6 V I+1))+C(L4J)*(C(L6J)-C(L6J-1))/DELZ1+ 

. C(L6J)»(C(UJ)-C(UJ-1))/DELZ1-C(L6JVC(LU)*((C(LU>- 
. P(L1 J))/DELT 1 -D_L_A VE/DELZ1 **2*(C(L1 J+l )-2*C(Ll J>fC(Ll J-l ))+ 
. C(UJ)»(C(LU+l)-C(LU-l)y(2*DELZl)>+Rl*C(LU)*ALF»RATE_C 

END IF 


C 

210 RETURN 
END 


C 

C 


SUBROUTINE DIFFEQ0(C1,PI.NJ1.NUND1) 

IMPLICIT REAL*8(A-H,0-Z) 

0t*«*M*n 

C GENERALIZED CALLING PROGRAM FOR BAND(J) TO SOLVE DIFFERENTIAL 
C EQUATIONS TAKING PARTIAL DERIVATIVES NUMERICALLY 

c 

c CALLED BY: MAIN CALLING PROGRAM 

C 


c 

c 

c 

c 

c 

c 

c 

c* 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINES CALLED: 

WRTOUT (FOR DATA OUTPUT) 

BAND (TO SOLVE BANDED TRIDIAGONAL COEFFICIENT MATRIX) 
FUNCT (TO OBTAIN VALUE FOR FUNCTION FOR A GIVEN VALUE 


FOR A VARIABLE) 


LIST OF IMPORTANT VARIABLES: 

A A coefficient described in Newman, Appendix C 
AA first, AA is F(WORKC*CU). Later AA is the 
value of the derivative df/dc used in Newton's 
method 

B B coefficient described in Newman, Appendix C 
C variables to be solved for 
CD multiplication factor used in obtaining 
numerical derivatives 
COLD value of C from previous iter alien 
CU 2.0 - CD 

D D coefficient described in Newman, Appendix C 
ERR convergence criterion 
F value of function f(CX calculated in FUNCT 
G residual of f(C) calculated with updated C value 
I index used for equation number 
ITCNT index for iteration number 
ITPRT flag used for determining whether intermediate 
calculations arc output; for 1 TPRT =0,only 
converged results are output; for 
ITPRT=1 results of iteration are primed. 
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10 CONTINUE 
C 

C LOOP BEGUN TO MARCH THROUGH EACH NODE POINT. SUBSEQUENT CALCULATIONS 
C PERFORMED AT EACH NODE POINT. G VALUES ALSO SET AT -Fa). 

C 

DO 60 J=1,NJ 
IFONDl.EQ.DTHEN 
CALL FUNCTOCJ) 

ELSE 

CALL FUNCT2(J) 

END IF 
DO 15 1=1 Ji 

suMa>=o.o 

Ga>=-Fa) 

15 CONTINUE 
C 

C THIS IS THE PLACE THE DERIVATIVES ARE CALCULATED. MM IS SET 
C TO INDICATE THE INTERVAL WHERE THE DERIVATIVES ARE TO BE CALCULATED 
C ON RELATION TO J). 

C 

IF (J.EQ.1) THEN 
MM=0 

ELSE IF (J.LT.NJ) THEN 
MM=-1 
ELSE 
MM=-2 
END IF 

DO 50 M=MMJvlM+2 
C 

C ORIGINAL VALUES OF C STORED IN SAVEC AND WORKC 
C 

DO50K=l.N 

SAVEC=C(KJ+M) 

WORKC=SAVEC 

C 

C DERIVATIVES CALCULATED FOR SMALL VALUES OF C (LESS THAN TINY) 

C 

IF (ABS(WORKC).LT.TINY) THEN 
F(ABS(WORKC).LT.TINIER)WORKC=SIGN(TINIER.WORKC) 

C0U+M>= 1.2* WORKC 
IF(IND1.EQ.1)THEN 
CALL FUNCT0O) 

ELSE 

CALL FUNCT2(J) 

END F 
DO 20 1=1 .N 
AA(I)=-F(I) 

20 CONTINUE 

C(K.J+M)=l.l*WORKC 
F(TND1£Q.1)THEN 
CALL FUNCTOO) 

ELSE 

CALL FUNCT2(J) 

END F 
DO 25 1=1 Ji 
AA(I)=AAah4.0*Fa) 

25 CONTINUE 

C0CJ+M)=WORKC 
F(IND1£Q.1)THEN 
CALL FUNCT0(J) 

ELSE 

CALL FUNCT2(J) 

END F 
DO 30 1=1 J4 
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AA(D=(AA(R-3 ,0*F(I))/(0.2*W ORKC) 

30 CONTINUE 

C 

C DERIVATIVES CALCULATED FOR LARGER VALUES OF C (GREATER THAN TINY) 

C 

ELSE 

C(KJ+M>=WORKC»CU 
IF(TND1XQ.1)THEN 
CALL FUNCTO(J) 

ELSE 

CALL FUNCT2(J) 

END IF 
DO 35 1*1 
AA(D“F(I) 

35 CONTINUE 

C(KJ+M)=WORKC*CD 
IF(INDliQ.l)rrHEN 
CALL FUNCT0(J) 

ELSE 

CALL FUNCT2(J) 

END IF 
DO 40 1=1 .N 

AA(IMAA(D-F(DV((CU-CD)*WORKC) 

40 CONTINUE 

ENDIF 

C(K. J+M >=S A VEC 
C 

C VALUES FOR A3.D.X AND Y GIVEN. SUM IS ALSO INCREMENTED 
C 

D045I-1.N 

SUM(I>«SUM(IHAA(I)*C(KJ+M) 

IF (M.EQ.-2) Y(LK)=AA(I) 

IF (M.EQ.-1) A(LK)=AA(I) 

IF (M.EQ.O) B(IJC)»AA(I) 

IF (M.EQ.1) D(LK)»AA(D 
IF (M.EQ.2) X(LK)-AA(D 
45 CONTINUE 

50 CONTINUE 

DO 55 I*1,N 
G(IM3(I)+SUM(D 
55 CONTINUE 

C 

C BAND CALLED TO SOLVE THE BLOCK TRIDIAGONAL MATRIX 
C 

CALL BAND2(J) 

60 CONTINUE 
C 

C CONVERGENCE CRITERION CHECKED. IF ANY VALUE OF RELATIVE CONVERGENCE 
C FOR ANY VARIABLE IS GREATER THAN THE CONVERGENCE CRITERION. A NEW 
C ITERATION IS BEGUN 
C 

DO 65 K-1.N 
D065J-1.NJ 

IF(DABS(C(KJ)).GT.TNIEST) THEN 
IF(DABS((C(KJ>COLD(KJ)yC(K. J)).GT .ERR) GO TO 70 
ENDIF 

65 CONTINUE 
GO TO 80 

70 IF(ITPRT .GT. 0) CALL WRTOUT2 
75 CONTINUE 
80 CONTINUE 
DO 95 Il=l.Nl 
DO 95 I2=1.NJ1 

ciaij2>=cau2) 
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95 CONTINUE 
RETURN 
END 


SUBROUTINE DIFFEQ(C1,P1.NJ1,N1 JND1JTCNT0) 

IMPLICIT REAL*8(A-H,0-Z) 

C GENERALIZED CALLING PROGRAM FOR BAND(J) TO SOLVE DIFFERENTIAL 
C EQUATIONS TAKING PARTIAL DERIVATIVES NUMERICALLY 

c 

C CALLED BY: MAIN CALLING PROGRAM 
C 

c 

C SUBROUTINES CALLED: 

C WRTOUT (FOR DATA OUTPUT) 

C BAND (TO SOLVE BANDED TRIDIAGONAL COEFFICIENT MATRIX) 

C FUNCT (TO OBTAIN VALUE FOR FUNCTION FOR A GIVEN VALUE 

C FOR A VARIABLE) 

C 

c 

C LIST OF IMPORTANT VARIABLES : 

C 

C A A coefficient described in Newman, Appendix C 

C AA fust, AA is F0VORKC*CU). Later AA is the 

C value of the derivative df/dc used in Newtons 

C method 

C B B coefficient described in Newman, Appendix C 

C C variables to be solved for 

C CD multiplication factor used in obtaining 

C numerical derivatives 

C COLD value of C from previous iteration 

C CU 10-CD 

C D D coefficient described in Newman, Appendix C 

C ERR convergence criterion 

C F value of function f(C), calculated in FUNCT 

C G residua] of f(C) calculated with updated C value 

C I index used for equation number 

C ITCNT index for iteration number 

C ITPRT flag used for determining whether intermediate 

C calculations are output; for ITPRT=0,on]y 

C converged results are output; foT 

C ITPRT=1 Jesuits of each iteration are printed 

C J index for node number 

C K index for equation number 

C M index used in working through nodes used to 

C calculate numerical derivatives 

C MM used to determine starting node (in relation to 

C J) for estimation of numerical derivatives 

C N number of equations (no. of variables) 

C NJ number of node points 

C SAVEC saved value of C 

C SUM intermediate value used in calculating G 

C TINIER criterion used to avoid working with small numbers 

C TINY criterion used to avoid working with small numbers 

C TNIEST criterion used to avoid working with small numbers 

C WORKC saved value of C; modified when C less than Tinier 

C XX value described in Newman, Appendix C 

C Y Y value described in Newman, Appendix C 
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c 

C DIMENSIONS HAVE BEEN SET FOR 6 EQUATIONS AND 101 NODE POINTS; IF 
C IT IS DESIRABLE TO INCREASE THE NUMBER OF EQUATIONS, CHANGE THE 6 
C IN THE DIMENSIONS TO WHATEVER NUMBER YOU WANT. AND CHANGE THE SECOND 
C DIMENSION OF D TO 2N+1, WHERE N IS THE NUMBER OF EQUATIONS. IF MORE 
C NODE POINTS ARE DESIRED. CHANGE THE 101 IN THE DIMENSION STATEMENTS TO 
C WHATEVER YOOippp 

REAL*8 01(14301)^1(14 J01) 

COMMON/INDIC/LlX2X3i4X5i6 
COMMON/OLD/ AA(14)3UM(14),COLD(14301) 
COMMON/BND/A(14,14)£(14.14).C(14301)JX14.29)3{(14.14). 
.Y(14.14),G(14)^JJTPRTjrCNT,F(14XP(14301) 

COMMON/NUM.OFJTR/ITCNTl 
COMMON/NCY/NC1 

DATATINYO,TINIERO.TNIESTO.ERRA.OD-5,l.OD-10.1.OD-15.1.OD-3/ 

DATA TINYl.TINIER l.TNIEST l.ERR/1 .0D- 10, 1 .0D- 15.1 .OD-20,1 .OD-3/ 

DATA TINY2,TINIER2,TNIEST2.ERR/1 .0D- 1.1 .OD-2, 1 .0D-3, 1 .OD-3/ 

DATA CU.CD/l .000 1 ,.9999/ 

ITCNT INITIALIZED HERE. AND INITIAL VALUES FOR VARIABLES PRINTED OUT 
IFITPRT=1. 


ITPRT-0 

NJ=NJ1 

N=N1 

IF (ITPRT.GT.0) CALL WRTOUT2 
IF(IND1.EQ.1)THEN 
D0 2I1-1.N1+5 
D02I2-1.NJ1 
CaiJ2>CiaU2) 
paij2)-piau2) 

CONTINUE 

ELSE IF(IND1.EQ3)THEN 
DOSIl-l.Nl+1 
D05I2-1.NJ1 
CaiJ2)-CiaU2) 
pau2>*piau2) 

CONTINUE 

ELSE IF(IND1.EQ3)THEN 
ITR=5+NC1*2 
DO 7I1=1JTR 
D07 12=1,NJ1 
C(UJ2)-C1<IU2) 
pau2>-piaiJ2) 

CONTINUE 
END IF 

LOOP BEGUN FOR ITERATIONS 

IF(ITCNTO.GT.7)rrCNTa=rrCNTO-l 
DO 75 ITCNT«UTCNT0 

COLD ARRAY SET UP 

itcnti=itcnt 

DO 10 K=1J4 
DO 10 J=1.NJ 
COLD(KJ)=C(KJ) 

CONTINUE 

LOOP BEGUN TO MARCH THROUGH EACH NODE POINT. SUBSEQUENT CALCULATIONS 
PERFORMED AT EACH NODE POINT. G VALUES ALSO SET AT -F(I). 

DO 60 J=1.NJ 
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IF0ND1.EQ.1 .OR. IND1.EQ.3)THEN 
CALL FUNCTl(J) 

ELSE 

CALL FUNCT2(J) 

END IF 
DO 15 1=1, N 
SUM(I)=0.0 
G(I)=-F(I) 

15 CONTINUE 

THIS IS THE PLACE THE DERIVATIVES ARE CALCULATED. MM IS SET 
TO INDICATE THE INTERVAL WHERE THE DERIVATIVES ARE TO BE CALCULATED 
(IN RELATION TO J). * 

IF (J.EQ.1) THEN 
MM=0 

ELSE IF (J.LT.NJ) THEN 
MM=-1 
ELSE 
MM=-2 
END IF 

DO 50 M=MM.MM+2 

ORIGINAL VALUES OF C STORED IN SAVEC AND WORKC 

DO 50 K=1.N 
SAVEC=C(K,J+M) 

WORKC=SAVEC 

DERIVATIVES CALCULATED FOR SMALL VALUES OF C (LESS THAN TINY) 

IF(NXQ.1)THEN 
TINY=TINY0 
HNIER=TINIER0 
TNIEST=TNIESTO 
ELSE IF(N.GEX1)THEN 
TINY=TTNY2 
TINIER=TINIER2 
TNIEST=TNIEST2 
ELSE 

TINY=TINY1 
TINIER=TINIER1 
TNIEST=TNTEST1 
END IF 

IF (ABS(WORKC).LT.TINY) THEN 
IF(ABS(WORKC).LT.TINIER) WORKC=SIGN(TINIER,WORKC) 
C(KJ+M)=1.2*WORKC 
IF(INDl.EQ.l .OR. IND1JEQJ)THEN 
CALL FUNCTl(J) 

ELSE 

CALL FUNCT2(J) 

END IF 
DO 20 1=1 JS" 

AA(I)=-F(D 
20 CONTINUE 

C(K,J+M)=l.l*WORKC 
IF0ND1.EQ.1 .OR. IND1£Q3)THEN 
CALL FUNCTl(J) 

ELSE 

CALL FUNCT2(J) 

END IF 
DO 25 1=1 .N 

_ AA(I)=AA(I)+4.0*F(I) 

V_. 25 CONTINUE 
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C(KJ+M>=WORKC 
IF0ND1.EQ.1 .OR. INDl3Q3)THEN 

CALL FUNCTl(J) 

ELSE 

CALL FUNCT2(J) 

END IF 
DO 30 1=1 

AA(IMAA(I)-3.0*F(I))/(0.2*WORKC) 

30 CONTINUE 

C 

C DERIVATIVES CALCULATED FOR LARGER VALUES OF C (GREATER THAN TINY) 

C 

ELSE 

* C(KJ+M)=WORKC*CU 

F(IND13Q.1 .OR. INDlEQ3)THEN 

CALL FUNCTl(J) 

ELSE 

CALL FUNCT2(J) 

END IF 
DO 35 M.N 

AA(D“F(I) 

35 CONTINUE 

C(KJ-t-M>=WORKC*CD 
IF(INDl.EQ.l .OR. IND1£Q3)THEN 

CALL FUNCTl(J) 

ELSE 

CALL FUNCT2(J) 

END IF 
DO 40 I=1,N 

AA(IWAA(I>F(I)y((CU-CD)*WORKC) 

40 CONTINUE 

ENDIF 

COU+M^SAVEC 

C 

C VALUES FOR A3.D.X AND Y GIVEN. SUM IS ALSO INCREMENTED 
C 

DO 45 1*1 

SUM(I)=SUM(IHAA(I)*C(KJ+M) 

F (M.EQ.-2) Y(LK)=AA(I) 

IF (M.EQ.-l) A(LK^AA(I) 

IF (M.EQ.0) B(I.K)=AA(I) 

IF (M.EQ.l) D(IJC)=AA(I) 

IF (M.EQ3) Xa.K)=AA(I) 

45 CONTINUE 

50 CONTINUE 

D0 55I-1.N 
G(I)=G(I)+SUM(D 
55 CONTINUE 

C 

C BAND CALLED TO SOLVE THE BLOCK TRIDIAGONAL MATRIX 
C 

CALL BAND2(J) 

60 CONTINUE 
C 

C CONVERGENCE CRITERION CHECKED. F ANY VALUE OF RELATIVE CONVERGENCE 
C FOR ANY VARIABLE IS GREATER THAN THE CONVERGENCE CRITERION. A NEW 
C ITERATION IS BEGUN 
C 

DO 65 K-1J4 
D0 65I-1.NJ 

F(DABS(C(K,J)).GT.TNIEST) THEN 
F(DABS((C(KJ>COLD0CJ))/C(K,I)).GTERR) GO TO 70 
ENDF 

65 CONTINUE 
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GO TO 80 

70 IFOTPRT .GT. 0) CALL WRTOUT2 
75 CONTINUE 
80 CONTINUE 
D0 95I1=1,N1 
DO 95 12=1 Wl 
C1(IU2)=C(IU2) 

95 CONTINUE 
RETURN 
END 

SUBROUTINE WRTOUT2 
IMPLICIT REAL*8(A-H.O-Z) 

COMMON/BND/A(14,14).B(14.14),C(14.301).D(14.29).X(14,14), 

,Y(14.14),G(14)J'IJ S IJJTPRTJTCNT,F(14) 

IF (ITCNT.NE.0) WRITE («,99)ITCNT 
WRITE (MOO) 

DO 1 K=1JIU 

WRTTE(M01)K,(C(LK),I=1,N) 

1 CONTINUE 

99 FORMATC rrCNT=' J2) 

100 FORMATC J Cl C2 C3 

C4 C5 C6'f) 

101 FORMAT(lXJ3.6(lPE16.8)) 

RETURN 

END 

C BLOCK TRIDIAGONAL MATRIX SUBROUTINE 
SUBROUTINE BAND20) 

IMPLICIT REAL*8(A-H.O-Z) 

DIMENSION E(14.14301) 

COMMON/BND/A(14,14)3(14.14),C(14301)JX14.29)^£(14.14),Y(14,14X 

,G(14)J^JJJJTPRTjrCNT.F(14) 

101 FORMATCODETERM=OATJ='.I4) 

IF (LEQ.l)THEN 
NP1=N+1 
DO 2 I=1JN 
D(L2*N+1)=G(D 
D02L=1.N 
D(LL+N)=X(LL) 

2 CONTINUE 

CALL MATINV2(N.2*N+1.DETERM) 

IF(DETERM.EQ.O) WRITE (2.101) J 
D0 5K=LN 

E0LNP1.1)=D(K,2*N+1) 

D05U1JI 
E(KX, 1 >=-D(K,L) 

X(K.L)=-D(K.L+N) 

5 CONTINUE 
RETURN 

ELSE IF(J£Q2)THEN 
DO 7 1=1 
D07K=1.N 
D0 7L=1J4 

D(LK^D(IJC)+A(LL)*X(LJC) 

7 CONTINUE 
ELSE EF(J.EQ.NJ) THEN 
DO 10 1=1 JN 
DO10L=lJV 

G(I)=G(D-Y(LLrE(L,NPU-2) 

DO 10 M=1.N 

A(LL>=A(U_>+Y(U4)* E(M.LJ-2) 

10 CONTINUE 
ENDIF 
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DO 12 I=ljsf 
D(LNP1)=-G(I) 

DO 12 L-1.N 

D(U^1)-D(LNP1}+A(LL)*E(LNP1,J-1) 

D012K-1.N 

B(LK)«B(LK}+A(IX)*E(LJCJ-1) 

12 CONTINUE 

CALL MATINV2(NJ1P1X)ETERM) 
IF(DETERM.EQ.O) WRITE(Z101) J 
DO 15 K*1 ,N 
DO 15M-1.NP1 
EOLMJKDOLM) 

15 CONTINUE 
IF(J £Q .NJ)THEN 
DO 17 K«1,N 
C(KJ)-E<ICNPU) 

17 CONTINUE 
D018M-NJ-1.1.-1 

DO 18 K-1.N 
C(ILM>.E(KJ>IP1.M) 

DO 18 L-1.N 

C(ILM>C(ILM)+E(KX>!)*C(UM+1) 

18 CONTINUE 
DO 19 L-1.N 

DO 19 K=1N 

C(K.l>-C(lUHX(KXrC(L3) 

19 CONTINUE 
ENDEF 
RETURN 
END 

MATRIX INVERSION SUBROUTINE 
SUBROUTINE MATINV2(NJ^DETERM) 

IMPLICIT REAL*8(A-H.O-Z) 

DIMENSION ID(14) 

COMMON/BND/A(14,14)3(14,14XC(14J01)JX14.29) 
DETERM=1.0 
DO 1 I=1JM 
1 HXTH) 

DO 18NN-1.N 
BMAX-0.0 
D0 6I-LN 
IF(ID(I).EQ.O)THEN 
DOSJ-1.N 
IF(ID(I)-EQ-0)THEN 
IF(DABS(B(LJ)).GT.BMAX) THEN 
BMAX=DABS(B(LI)) 

IROW-I 

JCOL=J 

ENDIF 

ENDIF 

5 CONTINUE 
ENDIF 

6 CONTINUE 
IF(BMAX.EQ.O.O)THEN 

DETERM -0.0 
RETURN 
ENDIF 
ID<JCOL)=l 

IF(JCOLNEJROW) THEN 
9 DO10J-1N 

SAVE*B(IROWJ) 

B(DtOWJ)=B(JCOLJ) 

B(JCOLJ)=SAVE 
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10 CONTINUE 
DO 11 K=ljvf 

SAVE=D(IROW,K) 

D(IROW,K)=D(JCOL,K) 

D<JCOLK)=SAVE 

11 CONTINUE 
ENDIF 

FF = 1.0/B(JCOL,JCOL) 

DO 13 J=1*N 

13 B( JCOL, J)=B (JCOLJ)* FF 
DO 14 K=1*M 

14 D(JCOL,K)=D(JCOUC)*FF 
DO 18 1=1, N 

IF(I.NE.JCOL)THEN 

15 FF = B(IJCOL) 

DO 16 J=1,N 

16 B(U) = B(U) -FF*B(JCOU) 
D017K=lJvl 

17 D(LK) = EKLK) -FF*D(JCOLK) 
ENDIF 

18 CONTINUE 
RETURN 
END 


c this subroutine compute the amount of adsorbed gas in equilibrium with gas 
c molar density, for single componet uses Langmuir- fredrich isotherm, the 
c compulsion of equlibruim for multi component uses the Ideal Solution Theory 
c (1ST), since the equations are none linear and implicit, a numeriacl method 
c was used to compute the adsorbed equlibruim amount, the method is by Forythe, 
c Computer Methods for Mathematical Computation, it is an bisect method with 
c quadratic convergence, 
c 

c B,V,PO arrays are sinle equlibrum constant 

SUBROUTINE IST_Z1(METH0DXSS,Q1) 

IMPLICIT REAL*8 (A-H,0-Z) 

COMMON/EQLffi/PP(4)3(4),V(4),PO(4)J ) I(4XXI(4XXl(4),Yl(4) 

COMMON/NCY/NC1 

COMMON/INDIC 1 /IND(4) 

REAL*8 Q1(4),SS(4) 

INTEGER LNUM 
EXTERNAL FCN1 

DATA XTOL.FTOULNLIM/1 .0E-5,1 .OE-5,0,50/ 

DATA R/555 / 

T G=T 
NC=NC1 

c the partial pressure 
DO I1*1,NC 
Yl(U)=SSai) 

END DO 
DO 1=1 JVC 

pp(D=YiarT g*r 

END DO 

c no mole franon return 
Z=1.0E-32 

IF(PP(l).LE^AND.PP(2).LE^Al^D.PP(3)J-E^LAND.PP(4)i-EJZ)THEN 

DOI=l,NC 

Qi(D=o. 

END DO 
RETURN 
ENDIF 

K Nl=l 
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c set che constant os a function of temperature 
IF(IND(1).EQ.1)THEN 

C V(NlH813983138-31118560043*T+1387732293D-4*T*D/44/100 
V(NlM7.0/44/100 

C B(N1)-6864.900013 1 *EXP(-.019625791466*T) 

B(N 1 )=5 323 235056e -6 *T**(-3)*EXP( 13948 344244/1 .987/T) 
PO(NlK8 
Nl-Nl+1 
END IF 

IF(IND(2)BQ.1)THEN 

V(N1^1769.(B5 

B(N1^1.879094E-4*EXP(5467 .4817024/D 
IF(TXJ.610.) THEN 

B(N1)-43597278759E-7»EXP(9628.9655743/D 

ELSE 

B(N 1 >=5 .8089066684E-7*EXP(9 115 .734593/D 
END IF 
Nl-Nl+1 

PCKND-1.0 
END IF 

ff(IND(3)EQ.l)THEN 
V(ND-1.637879912E-5»T+.00961297026 
IF(T 1£332)THEN 

B(N1)=3 36945 15539E-7*T4439988799E-4 
ELSE 

B(N1 )-7.90864008E-5*T -4. 14400420E-2 
END IF 

PO(N1K1.0 
Nl-Nl+1 
END IF 

IF(IND(4).EQ.1)THEN 
V(N1W.637879912E-5*T+.00961297026 
DF(T XE332JTHEN 

B(N1)=3 36945 15539E-7*T+439988799E-4 
ELSE 

B(Nl)»7.90864008E-5*T-4.14400420E-2 
END IF 

PO(N1)=1.0 
END IF 

1F(NC.EQ.1)THEN 

QKD=v(i)*B(irpp(i)**po(i)/(i+B(irpp(ir*po(i)) 

RETURN 

ELSE IF(NC.EQ3 AND. PP(1).EQ.0)THEN 
Ql(2)«V(2)*B(2)*PP(2)**PO(2)/(l+B(2)*PP(2)**PO(2)) 

Q1(1H> 

RETURN 

ELSE IF(NC.EQ3 AND. PP(2).EQ.0)rrHEN 

QKD-v(i)*B(irpp(ir*po(iy(i+B(irppar*po(i)) 

Ql(2)-0 
RETURN 
END IF 
TERM 1-0. 

c calculate the equilibrium istho therm by Langmuir method 
DO I- 1 JVC 
IF(PP(I).GT.0)THEN 
TERM 1 =B(I)*PP(I)**PO(I>+TERM 1 
END IF 
END DO 
SUM-0. 

DOI-LNC 
IF(PP(I).LE.O.) THEN 
Q1(IH>- 
ELSE 

Qia>»v(D*Barpp(D«poay(i+TERMi) 
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SUM=SUM+Q1(I) 

END IF 
END DO 

c if the Langmuir method is asked for then returned 
IF(METHOD.EQ.l)THEN 
RETURN 
END IF 

c if not, take the result as the first guess for 1ST theory 
DO 1*1 JVC 
xkd-qkd/sum 

IF(X1(I).CT.0)*THEN 

PI(D»PP(IVX1(I) 

ELSE 

PI(D-0. 

END IF 
END DO 

c calculate the spread pressure 
DO I*1,NC 
IF(PP(I),LE.O.) THEN 

xi avo 

ELSE 

xiavvaypo(D*LOG(HBci)*pia)**poa)) 

n=»i 

END IF 
END DO 
X=X1(IF) 

DO 1=1 

IF(X1(T),LTJC -AND. Xia).GT.O)THEN 
X=X1(I) 

END IF 
END DO 
AX*X 
DELX=AX 
BX=AX 

c call Zeroin subroutine to find the rout to the 1ST equation 
DO 1*1,100 
BX-BX+DELX 
FUN-FCN1CBX) 

IF(FUN.LT.0XX) TO 1 13 
END DO 

113 X=ZEROIN(FCN1JOLBX.TOL) 
c rout was found 
DOI=l,NC 
IF(PP(I).LE.O) THEN 
PPaV1.0E-32 
END IF 

c calculate the fraction in the solid phase 

PARTl«PO(D*X/V(I) 

IFfPARTl .GT.73)PART1 «73 
PIffHHXP(PARTl)-l)/B(D 

xi(D-pp(D/pia) 

END DO 
TOTJ3-0 

c calculate the total amount adsorbed 

DO I*1,NC 

QKD-varB(D*pia)**poav(i^BarPi(D**po(D) 

TOTJ>TOT_Q+X 1 aVQ 1 (I) 

END DO 

c calculate the amount adsorbed for each co m ponent 
DOI-LNC 

Ql(D-l/TOT_Q*Xl(I) 

END DO 
80 RETURN 
END 
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c 1ST function 

REAL FUNCTION FCN 1 (X) 

IMPLICIT REAff*8(A-H,0-Z) 

COMMON/EQLIB/PP<4).B(4).V(4).PO(4) 

COMMON/NCY/NC1 

NC-NC1 

SUM-0. 

DO I-1.NC 
IF(PP(I).GT.O) THEN 
PARTl-PO<I)*X/V(I) 

IF(PART1.GT.73)PART1*73 
suM-suM+ppav((ixp(PARTi)-i)/B(Dr*avPO(D) 
END IF 

C IF(PPflLLE.O)PP(I> 1 .OE-32 

C PARTl«PO(D*X/V(I) 

C IF(PARTl.GT.73)PARTl-73 

c suM-suM+ppay((HXP(PARTi)-i)/B©r*aypoa)) 

END DO 
FCN1-SUM-1 
RETURN 
END 


c 

c subroutine to find the root of equation by bisect method 


REAL FUNCTION ZEROIN(FCNl .AXJBXTOL) 
IMPLICIT REAL*S(A-H,0-Z) 

REAL*8 AXJBX,FCN I ,TOL 

REAL*8 AJ,CX)X-EPS,FAJBJFC.T0L1 JCMJ.QJLS 
EPS* 1.0 

10 EPS-EPS/Z 
TOL1-1.0+EPS 
JF(TOL1.GT.1.0) GO TO 10 
c initialization 
A* AX 
B*BX 

FA*FCN1(A) 

FB=FCN1(B) 
c begin step 
20 C*A 
FC*FA 
D*B-A 
E*D 

30 IF(ABS(FC) .GE. ABS(FB)) GO TO 40 
A*B 
B=C 
C*A 
FA*FB 
FB-FC 
FC*FA 

c convergence test 

40 TOLl»2.*EPS*ABS(B)+.5*TOL 
XM*.5*(C-B) 

ff(ABS(XMU-E.TOLl)GO TO 90 
IFfFBJSQ.O.O) GO TO 90 
c is bisection necessary 

IF(ABS(E)J-E.TOLl)GO TO 70 
IF(ABS(FA)J-E-ABS(FB)) GO TO 70 
c is quarahc imerpolaudon possible 
IF(A-NE.C)GO TO 50 
c linear interpolation 
S=FB/FA 
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P=2.0*XM*S 
Q=1.0-S 
GO TO 60 

c inverse quadratic interpoltaiion 
50 Q=FA/FC 
R=FB/FC 
S=FB/FA 

P=S^2.*XM*Q*(Q-R>(B-A)*(R- 1 .0)) 

Q=(Q- 1 -0)*(R- 1 .0)*(S- 1 .0) 
c adjust signs 
60 IF(P.GT.0.0)Q=-Q 

P=ABS(P) 

c is interpolation acceptable 

ff((2.0*P).GE.(3 *XM*Q-ABS(TOLl*Q))) GOTO 70 
IF(P.GEABS( J*E*Q)) GO TO 70 
E=D 
D=P/Q 
GO TO 80 
c bisection 
70 D=XM 
E=D 

c complete step 
80 A=B 
FA=FB 

IF(ABS(D).GT.TOLl )B=B+D 
IF(ABS(D)UE.TOLl)B=B+SIGN(TOLUCM) 

FB=FCN(B) 

IF((FB*(FC/ABS(FC))).GT.0)GO TO 20 
GO TO 30 
c done 

90 ZEROIN=B 
RETURN 
END 
C 

C 

c 

c 

c the second method, this method is faster but the initial guess must be near 
c the root of the equation, 
c 

c this subroutine compute the amount of adsorbed gas in equilibrium with gas 
c molar density, for single componet uses Langmuir- fredrich isotherm, the 
c computaion of equlibruim for multi component uses the Ideal Solution Theory 
c (1ST), since the equations are none linear and irapliciua numeriacl method 
c was used to compute the adsorbed equlibruim amount, the method is Newton, 
c 

c B,V,PO arrays are sinle equlibrum constant 

SUBROUTINE IST.ZfMETHOD/TJT.SS.Ql) 

IMPLICIT R£AL*8 (A-H f O-Z) 

CX)MMON/EQLiB/PP(4)3(4),V(4)J>CK4)J>I(4),XI(4XXl(4) t Yl(4) 

COMMON/NCY/NC1 

COMMON/INDICl/IND(4) 

REAL*8 Ql(4 ),SS(4) 

INTEGER LNUM 

EXTERNAL FCN.FDER 

DATA XTOUFTOLiNUM/1 .0E-5.1 .0E-5,0,50/ 

DATA R/555.0/ 

T G=T 
NC=NC1 
DO 11=1 

Yiai)=ssai) 

END DO 
DO 1=1 

PPCD-YiarT^G-R 



END DO 

c no mole fradon return 
Z=1.0E-32 

IF(PP(l).IiZAND.PP(2).LEiAND.PP(3)XEZJ^ND.PP(4)iE2)THEN 
DO 1=1 J^C 
Ql(I)-0. 

END DO 
RETURN 
END IF 
Nl-1 

c set the constant as a function of temperature 
IF(IND(1)£Q.1)THEN 
c 13x by L grace 

c point*-1567.1205874-t9.00256903*t-.0172347*t*t+1.100806e-5*t*t*t 
c if(pp(nl).gLpoint .or. t.gt.627)then 

c V(N1H81-2983138-.21118560043*T+1387732293D-4*T*T)/44A00 

c B(N1)-6864.9000131*EXP(-.019625791466*T) 

c po(nl W-0 

c else 
c 13x by l_£,grice 
C v(nl>*2332228/44A00 

C b(nlM-9639763e-4*T«*(-J)*exp(923333T78/1.987/D 

c po(nl>*-2.9138991288+.017181761 178*T-2.8549083257e-5*T*T+ 

c . 1 .6225 1 1 757e-8*T*T*T 
c end if 

c from Finn data 3 A 
c if(pp(nl).lL 1.0) then 

C b(Nl >=237022397e-6*t**(-3)*exp(14907.6535/1.987A) 

C v(Nlhl6.6/44/100 

C po(Nl)=.80 

c Finn by langmuir 
c else 

c v(nlH25.97135008-6.084518e-3»T-2.1799516646e-5*T*T)/44/100 

c b(nl^l.88863393e-5*T**(-3)*exp(12170.875335A.987/D 

c po(nl>>l. 

c end if 

C 5A BY GRACE, BY L_F 
c V(Nl)-17.0AO0/44 

c B(N1)»2341477E-4*T M (-.5)*EXP(10257.166145/1.987/D 

c PO(N 1)*3. 8304501 1 1E-4*T** 1 . 1 88379596 

C 5A BY GRACE, BY L 

C V(NlM-4.27886889+.087218022*T-9.1010715804E-5*T*T)/44/100 

C B(N1)«9 .2533309 123 E-5*T**(-.5)*EXP(10719.O/1 .987/D 

C PO(NlM- 

C 5A BY GRACE; BY LJF BETWEEN 0-75 C 

V(N1 M399 3942-1 .938428896*T +3.25405 15E-3*T*T - 
. 1.822621 1899E-6*T*T , T)/44A 00 
B(N1 )»35 358072159-. 1701 6733 *T +2.74587 62E-4*T*T - 
. 1.484 116G35E-7*T**3 

PO(N1)-293861079+.1538898497*T-2.61225877E-4*T*T+ 

. 1.478184694E-7*T**3 
c linde 5a 
c v(nl)=.005 

c b(nl)»1.1290l5193e-5*exp(5055.015089A) 

c po(nl)=.6 

N1=N1+1 
END IF 

c h2o on 5a by grace 1.1 
IF(IND(2)EQ.1)THEN 
ff(IND(l).EQ.l)THEN 
if(pp(nl)JL .4)then 
if(Ue364.)then 

v(nl >*(39.914452-8.87 103e-2*t+6.839502987e-5*t*tyi00A8 
else 
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non 


v(nlM873.44464-3.867834937*t+5.80375049e-3*t*t- 
2.9346685e-6*t*t*tyi0Q/18 
end if 

b<nl>=29690.66923-137.837129*T+.214456126*t*t 

po(nl^l 

else 

b(nl>=48 -566639771-2.2620239975e-l *1+3.91017031 68e-4*t*t- 
. 237909 8497e-7*t*t*t 

v(nlM95.093824733-31725775358*t+1.4628603e-4*t*t)/100/18 
po(nl>=l 
end if 
ELSE 

C h2o on 5a grace by L.F 

b(nl >=24373259-5.83 85 27 8e-2*t+3.473682438e-5*t*t 
v(nl)=<66.62520167-.12299345*t+7.1897316221e-5*t*t)/l 00/18 
if(Ue.600)then 

po(nl'=.8219916486-33519986e-3*t+4.679276479e-6*t*t 
else 

po(nl>=-6.0926707634+2.043004e-2*t-2.924858439e-5*t*t+ 
1.1746734108e-8*t*t*t 
end if 
END IF 

b(nl^.2247292664*t**(-5)*exp(7 858.45996/1. 987 A) 
v(nl>=(17234468- .66643613*1+9 .758449e-4*t*t-4 .986888e- 
7*t*t*t)/18A00 
po(nl)=l. 

V(N1>=22.0/18.A00. 

B(N 1 >=7833485-. 14255 1 *T 
PO(Nl)=l. 

N1=N1+1 
END IF 

IF(IND(3).EQ.1)THEN 
V(N1>=-1.637879912E-5*T+.00961297026 
IF(TJ-E332)THEN 

B(N1)=336945 15539E-7*T4439988799E4 
ELSE 

B(Nl>=7.90864008E-5*T-4.14400420E-2 
END IF 

PO(N1>=1.0 
N1=N1+1 
END IF 

IF(IND(4).EQ. 1)THEN 
V(N1>=-1.637879912E-5*T+.00961297026 
EF(TJ-E332)THEN 

B(Nl)=33694515539E-7*T+439988799E-4 
ELSE 

B(N1 >=7.90864008E-5*T -4. 14400420E-2 
END IF 

PO(N1>=1.0 
END IF 

EF(NC£Q.1)THEN 

oid>=v(i)*B(i)*pp(i)**PO(iy(i+B(irpp(ir*po{i)) 

RETURN 

ELSE IF(NC.EQ3 AND. PP(1).EQ.0)THEN 
Ql(2)=V(2)*B(2)*PPC2)**PO(2)/(l+B(2)*PP(2)**PO(2)) 
Q1(1)=0 
RETURN 

ELSE IF(NC.EQ3 AND. PP(2).EQ.0)THEN 

Ql(l)=V(l)*B(l)*PP(l)**PO(l)/(l+B(l)*PP(l)**PO(l» 

Ql(2)=0 
RETURN 

ELSE IF(NC.EQ3)THEN 
if(pp(l)Je.0 .and. pp(2).le.0)then 
Ql(3>=V(3)"B(3)*PP(3)**PO(3)/(l+B(3)*PP(3)**PO(3)) 
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QH1J-0 

Q1(2H) 

return 

else if(pp(l).le.O .and. pp(3).le.0)then 
Ql(2)«V(2)*B(2rPP(2r*POaV(l+B(2)*PP(2r ,> PO(2)) 

Ql(lH) 

Ql(3)-0 

return 

else if(pp(2) Je.0 .and. pp(3).le.0)then 
Ql(l>«V(l)*B(irPP(ir^PO(iy(l+B(l)*PP(l)**PO(l)) 

Ql(2)-0 
Q1(3H) 
return 
end if 
END IF 
TERM 1*0. 

c calculate the equilibrium by Langmuir isotherm 
DOI-IJ^C 
IF(PP(I).GT.O)THEN 
TERMl«B(I)*PP(D**POaHTERMl 
END IF 
END DO 
SUM*0. 

DO I®1*NC 
IF(PP(I).LE.O.) THEN 

ELSE 

Qia^varBarppar^poayd+TERMi) 

SUM*SUM+Q1(I) 

END IF 
END DO 

c if the Langmuir method is asked foR, then return. If not use it as first guess 
c for 1ST theorv 

EFfMETHOD-EQ. 1)THEN 
RETURN 
END IF 
DOI-1J4C 
X1(D=Q1(I)/SUM 
IF(X1(D-GT.0) THEN 

pi(D«pp(iyxi(D 

ELSE 

nco-o. 

END IF 
END DO 

c set the initial guess for the spreading pressure 
DOI-1.NC 
IF(PP(I)XE.O.) THEN 
Xl(I)-0 
ELSE 

Xl(I>V(iyPO(D*LOG(l+B(I)*Piar*PO<I)) 

IF-I 
END IF 
END DO 
X=X1(IF) 

DOI*ZNC 

IF(X1(DXTX -AND.X1(I).GT.0)THEN 
X=X1(D 
END IF 
END DO 

c call newton method to die rout to 1ST equation 
IF(X IE. 1.0E-17) GO TO 80 
CALL NEWTN(FCN JDERXXTOUFTOLNUMJ) 
c rout was found, calculate the fraction in the solid phase 
DOI=l,NC 
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IF(PP(I).LE.O) THEN 
X1(I>=0. 

ELSE 

PARTl=PO(I)*X/V(I) 

IF(PART1 .GT.73)PART1 =73 
PI(I)=(EXP(PART1 )-l)/B(I) 

Xia>=PP(D/PI(I) 

END IF 
END DO 

c calculate the total amound in the solid phase 
TOT_Q=0 
DOI=l,NC 
IF(PP(I).LE.O) THEN 

QidH)- 

ELSE 

Qia>=varBa)*pia)**po(D/(i+Barpi(D^po(D) 

TOT Q=TOT_Q+X 1 (IVQ 1 (D 
END IF 
END DO 

c calculate the amount in equilibruim with the gas phase for each component 
DOI=l.NC 

Q1CD=1/T0T Q*X1(I) 

END DO 
80 RETURN 
END 
c 

c 1ST final equation 
c 

REAL FUNCTION FCN(X) 

IMPLICIT REAL*8(A-H,0-Z) 
COMMON/EQUB/PP(4)3(4).V(4),PO(4) 

COMMON/NCY/NC1 

NC=NC1 

suv=o. 

DO I=1J4C 
IF(PP(I).GT.O) THEN 
PARTI »PO(I)*X/V (I) 

IF(PART1 .GT.73)PART1 =73 

SUM=SUM+PP(I)/((EXP(PARTl)-l)/B(I))**(iyPO(I)) 

END IF 
END DO 
FCN=SUM-1 
RETURN 
END 


c 1ST final derivitive 
c 

REAL FUNCTION FDER(X) 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON/EQLEB/PP(4)3(4), V(4),PO{4) 

COMMON/NCY/NCl 

NC-NC1 

SUM=0. 

DOI=l,NC 

IF(PPa).Crr.O)THEN 

PART3=POa)*X/V(I) 

IF(PART3.LT35JTHEN 
PART1=-PP(I)/B(IYV (I)*EXP(PART3) 
PART2^((EXP(PART3)-l)/B(T))**((l+PO(I))/PO(I)) 
SUM=SUM+PART1/PART2 
ELSE IF(PART3/PO(I).LT.73)THEN 
SUM=SUM-B(I)**((l+POa))/PO(I)rPP(I)/B(I)/V(I)* 
EXP(-PART3/PO(I)) 

ELSE 
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PART3=73 

suM«suM-B(D**(d+poa))/poa))*pp(D/B(D/va)‘ 

EXP(-PART3) 

END IF 
END IF 
END DO 
FDER=SUM 
RETURN 
END 


c this subroutine finds the rout to a nonlinear equation using the Newton 
c method 

SUBROUTINE NEWTNfFCN.FDERXXTOUFTOUNLIMJ) 

IMPUCTT REAL*8(A-H.O-Z) 

INTEGER NUMJJ 
FX-FCN(X) 

xi*x 

DO J-1.NUM 
DELX«FX/FDER(X) 

X-X-DELX 

FX»FCN(X) 

IF (ABS(X-Xl)/X.LEXTOL)THEN 
RETURN 
END IF 

IF(FXJ^E.OyrHEN 

IF(ABS(FX-FXl)/FX.LE.FTOL) THEN 
RETURN 
END IF 
END IF 
XI «X 
FX1-FX 
END DO 
I=-l 

PRINT 200. NUMXFX 

200 FORMATC/TOLERANCE NOT MET 'J4,’ ITERATIONS X= 

2E12^.’F(XK£12^) 

RETURN 

END 

FUNCTION CPGAS(TEM,Y) 

C THIS FUNCTION CALCULATES THE HEAT CAPACITIES OF CMRIER GAS IN BTU/#MOLE/R 
IMPUCTT REAL*8(A-H.O-Z) 

REAL-8 A(4)3(4).C(4LD(4).Y(4) 

COMMON/GAS /INERT.NCOMP 
COMMON/INDICl/IND(4) 

COMMON/NCY/NC1 

CC02 

DATA A/36.11.33.46,29.,29.1/ 

CH20 

DATA B/4.233E-2,.6880E-2,.2 1 99E-2, 1 . 1 58E-2/ 

CN2 

DATA C/-2.887E-5,.76O4E-5,J723E-5,-.6076E-5/ 

C02 

DATA D/7.464E-9.-3 -593E-9.-2.871E-9.1.3 1 IE-9/ 

NONC1 

CPGAS*0. 

YO-O. 

Nl-1 

T-TEM/1 .8-273.15 
IF (INERT£Q.1)THEN 
DO 1=1.4 

IF(IND(D£Q.1)THEN 
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CP=AaHB(D*T+C(I)*T*T+D(I)*T*T*T 
CPGAS=CP* Y(N1 )/4.18669+CPGAS 
YO=Y(Nl)+YO 
Nl=Nl+l 
END IF 
END DO 

CPGAS=CPGAS-KA(3)+B(3)*T+C(3)*T*T+D(3)*T*T*T)* ( 1 - YO)/4. 1 8669 
ELSE 

CPGAS=4.97 

ENDIF 

RETURN 

END 

FUNCTION CPS (JEMP) 

IMPLICIT REAL*8(A-H,0-Z) 

C THIS FUNCTION CALCULATES TNE HEAT CAPACITY 
C BTU/LB/R. 

CPS=0.2 

RETURN 

END 

REAL FUNCTION KGAS (TEMP) 

C THIS FUNCTION CALCULATES THE THERMAL CONDUCTIVITY OF CARRIER GAS ASSUMING 
C A LINEAR FUNCTION OF TEMPERATURE AND BASED ON VALUES AT 492 AND 672 R. 

C BTU/MIN/FT/R 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON/GAS /INERT.NCOMP 
IF (INERT.EQ.1) THEN 
KGAS=3.88E-7*TEMP+0.4052E-4 
ELSE 

KGAS=1 .667E-6*TEMP+6. IE-4 
ENDIF 
RETURN 
END 

FUNCTION RE (G.TEMP) 

C TNIS FUNCTION CALCULATES THE PARICLE REYNOLDS NUMBER ASSUMINC THAT 
C THE MOLECULAR WEIGHT OF TNE GAS IS EQUAL TO THAT OF CARRIER GAS. 

IMPLICIT REAL*8(A-H.O-Z) 

REAL* 8 LEN.MW 

COMMON/PRIME/GNZRA.RAVJBPSEX.EPSINALF.RHOSALPHA1 
COMMON/GAS/INERT J^COMP 
DATA IFLAG/O/ 

IF (INERT.EQ.1) MW=28.0 
IF(INERT£Q.2)MW-4. 

IF (IFLAG.EQ.O)THEN 
CONST=2.*RA 
IFLAG=1 
ENDIF 

RE=CONST*MW*ABS(G)/VIS(TEMP) 

RETURN 

END 

FUNCTION VIS(TEMP) 

IMPUCTT REAL*8(A-H.O-Z) 

C THIS FUNCTION CALCULATES THE VISCOSITY OF CARRIER GAS AS A LINEAR FUNCTION 
C OF TEMPERATURE (LB/MIN/FT). 

COMM ON/G AS /INERT .NCOMP 
IF (INERT JEQ.l) THEN 
C VIS*1.0E-6*TEMP-t-1.65E-4 

VIS=-.0102007812+5384663937E-5*TEMP-8.7973727E-8*TEMP*TEMP+ 

2 4.81 1387495E-I1 *TEMP*TEMP*TEMP 

ELSE 

VIS=0.9444E-6*TEMP+2-863E-4 
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ENDIF 

RETURN 

END 

FUNCTION RHOG(TR,P) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 LEN 

C THIS FUNCTION CALCULATES THE MOLAR DENSITY OF AN IDEAL GAS IN 
C LBMOLES/CV FS. 

COMMON/PRIME/GN2JIA.RAV.EPSEX.EPSIN.ALF.RHOS.ALPHA1 
DATA R/355./ 

RHOG=P/R/TR 

RETURN 

END 

FUNCTION EFFTXICOMP,G,TEMP.RHO,PT.YO) 

C THIS FUNCTION CALCVLATES TNE EFFECTIVE AXIAL DIFFUSIVITIES IN A PACXED BED 
C USING THE EDWARDS AND RICHARDSON CORROLATION. (FT*FT/MIN) 

IMPLICIT REAL*8(A-RO-Z) 

REAL* 8 LAMBDA1.LAMBDA2XEN.YCK4) 

COMMON/PRIME/GN2JRAjlAV.EPSEX,EPSIN,ALF,RHOS.ALPHAl 
DATA IFLAG/0/LAMBDA1/0.73/ 

IF(IFLAG.EQ.O)THEN 

CONST=2.*RA/EPSEX 

IFLAG=1 

ENDIF 

DIF=DIFF(ICOMP,TEMP,PT,YO) 

EFFD-LAMBDAl*DIF+CONST*ABS(G)*LAMBDA2(GJ3IFJRHO)/RHO 

RETURN 

END 

FUNCTION EFFK(G,T.CP,RHO,P,YO) 

IMPLICIT REAL*8(A-H.O-Z) 

C THIS FUNCTION CALCULATES THE EFFECTIVE AXIAL THERMAL CONDUCTIVITY OF A 

C PACKED BED IN BTU/FT/MIN/F. 

COMMON/NCY/NC1 
REAL*8 YO(4) 

NC=NC1 

EFFK-O. 

KK-0 

DO I1=1,NC 

SUM=CP*RHO*EFFD(Il.GXRHO,P,YO) 

IF(SUM.GT.0)KK-KK+1 
EFFK=SUM+EFFK 
END DO 
EFFK=EFFK/KK 
RETURN 
END 

REAL FUNCTION LAMBDA2(G.DIF,RHO) 

C THIS FUNCTION CALCULATES THE DIMENSTONLESS PARAMETER OF THE EDWARDS AND 
C RICHARDS CORROLATION MODIFIED FOR SMALL DIAMETER PARTICLES. 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 LEN 
DATA IFLAG/0/ 

COMMON/PRIME/GNZRAJlAV£PSEX,EPSINALF.RHOSALPHAl 

IF(IFLAG.EQ.O)THEN 

IF(RA.GT.0.00492)THEN 

PE*2. 

ELSE 

PE=406.4*RA 

ENDIF 

CONST=2.*RA/EPSEX 

IFLAG=1 
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ENDIF 


LAMBDA2=l./PE/(l.+9.5*DIF/CONST/ABS(G)*RHO) 

RETURN 

END 


FUNCTION DIFF(ICOMP.TEMJ>l.YO) 

C THIS FUNCTION CALCULATES THE MOLECULAR DIFFUSION COEFFICIENTS BY CORRECTING 
C FOR PRESSURE AND TEMPERATURE (FT*FT/MIN). 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 LEN,YO(4),V(4),Vl(4)J4Wl(4),MW(4),DIF(4) 

COMMON/GAS/INERT J4COMP 

COMMON/NCY/NC1 

COMMON/INDICl/IND<4) 

COMMON/PRIME/GN2*RAjlAV.EPSE?LEPSIN,ALF,RHOS.ALPHAl 
DATA Vl/26.9,12.7. 17.9,16.6/ 

DATA MWl/44.01,18.016,28.013,31.999/ 

NC=NC1 

K=ICOMP 

P=Pl/760. 

T=TEM/1.8 
Nl=l 
DO 11=1,4 

IF(INDai)EQ.l)THEN 

MW(N1)=MW1(I1) 

V(Nl)=Viai) 

N1=N1+1 
ENDIF 
END DO 
DO 1=1 J4C 
IF(NC.EQ.l) THEN 
MW(I)=MW(K) 

Va)=V(K) 

ENDIF 

PART1=((MW (K}+MW(I))/MW(K)/MW (I))**-5 
PART2=(V(Kr*(173HVa)**(l/3)r*2 
DIF(I)=PART1/PART2*T** 1 .75/P*1.0E-3 
END DO 

IF(NC.EQ.1)THEN 
DIFF=DIF(1 )*3.8745 
RETURN 
ENDIF 

IF(NC.EQ.2)THEN 
IF(1CEQ. 1 )DIFF=DEF(2)*3.8745 
IF(K-EQ.2)DIFF=DIF(1 )*3.8745 
RETURN 
ENDIF 
SUM=0. 

DO I=1.NC 
IF(LNEJC)THEN 
SUM=SUM+YOaVDIF(D 
ENDIF 
END DO 
if(stmuie.O) then 
DIFF=(l-YO(K))/SUM*3.8745 
else 
diff=l 
endif 
RETURN 
END 


FUNCTION HFILM(MW,TEMP,REY ,CP) 
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C THIS FUNCTION CALCULATES THE FLUID FILM HEAT TRANSFER COEFFICIENT 
C IN BTU/SQ FT/MIN/R USING THE CORRELATION OF PETROY AND THODOS. 

IMPLICIT REAL*8(A-H.O-Z) 

REAL* 8 IDJCGASJCGJ-ENJvfW 

COMMON/PRIME/GN2JLUUVEPSEX.EPSIN.ALF.RHOS.ALPHA1 

COMMON/GAS/INERT .NCOMP 

KG=KGAS(TEMP) 

PR=CP/MW* VIS (TEMP )/KG 

HFILM=0357/EPSEX*REY**0.64*PR**033*KG*03/RA 

RETURN 

END 

C FUNCTION DHCAR(TEMP J>) __ 

CTHIS SUBROUTINE CALCULATES HEAT OF ADSORPTION OF CARRIER GAS ONTO THE 
C ACTIVATED CARBON TIMES THE TEMPERATURE DERIVATIVE OF THE SOLID PHASE 
C CARRIER GAS CONCENTRATION AT THE BED PRESSURE (BTU/# SOUD/R). 

C IMPLICIT REAL*8(A-RO-Z) 

C REAL*8 LEN 

C COMMON/GAS /INERT.NCOMP 

C COMMON/PRIME/GN2JIAJlAV£PSE>LALF.RHOSALPHAl 

C DATA R/l .9872AA/138E-9/.B/315 1 J 
C 

C IF(INERT.EQ.l ) THEN 
C DH=R*B 

C DHN2*-DH*A*B*EXP(B/TEMP)*P/rEMP/TEMP 
C ELSE 
C DHN2-0. 

C ENDIF 
C RETURN 
C END 

FUNCTION DHADSflCOMP.T) 

C THIS FUNCTION CALCULATES THE ISOTERIC HEAT OF ADSORPTION. (BTU/*MOLE) 
IMPLICIT REAL* 8( A-H.O-Z) 

REAL*8 LEN 

COMMON/PRIME/GN2JIAJIAV,EPSEX.EPSIN.ALF.RHOS,ALPHA1 
IF(ICOMP.EQ.2) THEN 
DHADS-20400.0 
ELSE 

DHADS=20000.0 

ENDIF 

RETURN 

END 

C 

REAL* 8 FUNCTION TEMPIN(TIME) 

IMPLICIT REAL*8(A-H.O-Z) 

C THIS FUNCTION CALCULATES CURRENT INLET TEMPERATURE 
C BASED ON THE TIME FOR A TEMPERATURE CHARACTERIZATION 
C COMPARSION RUN 
IFCTIME.LT.03) THEN 
TO *71.776 
Tl- 13.611 
T2 = -25.775 
T3 = -75293 
T4 * 84821.0 
T5 * -1.9364E+5 
ELSE 

TO = 74358 
T1 = 154.04 
T2 = -77.999 
T3 = 20.167 
T4 = -23737 
T5 = .12789 
ENDIF 
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X = TIME 

TEMPIN = T0+T1*X+T2*X**2.+T3*X**3.+T4*X**4.+T5*X**5. 
TEMPIN = TEMPIN +460. 

RETURN 

END 
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APPENDIX E 


2DM0L FORTRAN CODE 


C this is the main routin. the initial values of matix S and parameters are 
C called by TNTTIAL_Z" subroutine, the main routine then calls the "FUNCT1" 

C subroutine to solve the discretized partial diffential equations (pde's). 

C after convergance, the routine calls the "DIFFEQ1 " subroutine, which is 
C the maine routine for solving the momentum and the pressure equations, 

C if it is desire to solve these two equations as the time progresses. 

C 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 C2(14.201,101XC1(14,201),P1(14.201),RP(101).RP1(101). 

. Y1 (33), Y2(33), Y3(33 ) 

REAL*4 QP( 1 4,20 1 , 1 0 1 ),C_ A VE(2, 101 ) J’_TIME,aa,bb,cc,dd 
INTEGER IOUT(5) 

CHARACTER *5 COUT(3) 

CHARACTER'S LABEU4) 

CHARACTER *8 DATE 

CHARACTER* 1 6 RADFILRAVGFILE.CTLFILE 
COMMON/DATE/DATEJSAT 

COMMON/NEW GRID/DELR0(101).ALF1(101)J4GR1 .NGR2 

COMMON/BND3/S(14,201,101),P(14,201.101) 

COMMON/BND2/N>TJ2J4JJTPRTJTCNTJ4J1 

COMMON/PROP.D Z/DELZI>ELT.TIME,DELR1.DELR2,JZJT,NC.NJR.NP 
COMMON/INDIC/LTj-2,L3,U,L5.L6.LLM3 JI JJJVEL_1 .MT 
COMMON/PROP WAL/CP_WAJIO_WA.ERRORO£RROR1 
COMMON/INDIci/IND(4) 

DATA IVEL_1,ICU SIMAU/ 

COMM ON/RADIAL/RP 

WRITE(* *)DESIGNATE A FILE DATE FOR THE OUTPUT FILES 1 

PFAD* HATF 

RADFILE = DATE // '_RAD.OUT 
AVGFILE = DATE // _AVG.OUT 
CTLFILE = DATE // ' CTL.OUT 
OPEN (50,FILE= RADFILE, STATUS='NEW',RECL=32766) 

OPEN (60,FILE=AVGFILE.STATUS= 1 NEW\RECL=32766) 

OPEN (70,FILE=CTLFILE,STATUS= , NEW,RECL=32766) 

C DATA IOUT/5,25.50,75.101/ 

DATA 10UT/5.15 .25,35.51/ 

DATA COUT/pC02@',' pN2@\Tgas@y 

C WRITE HEADER DATA TO ACSH FILE 

WRITE(50,48X(COUT(DJOUT(jy=U)J=l,3) 

WRTTE(60,47X(COUT(I)JOUT(J)J=1^)J=1,3) 

WRITE(70.47X(COUTa)JOUT(jy=14)J=1.3) 


INITIALIZE THE C ARRAY WITH THE INITIAL GUESSES OF THE SOLUTION 

CALL INITIAL_Z 
T_TIME=0. 

TIME=0. 

C strat marching through time, LL is the number of time steps 
IF(IND(2).EQ.O .OR. ISAT.EQ.1)THEN 
INDO=0 
NEQ=2*NC+3 
NA=NEQ 
ELSE 
IND0=1 
NEQ=2*NC 
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NA=NEQ+3 
END IF 

NEQl=2*NC+5 
IVEL=1 
NJ_0R_1=1 
LL2=15 
DOLL-1,1800 
IF(LL2.GTJ)THEN 
LL2-LL2 -1 
END IF 

DO 20 LL1=1,LL2 
DOIU1.NEQ1 

DOI2-1.NJ1 

DOI3=l.NJR 

C2(IU2J3)=S(IU2J3) 

END DO 
END DO 
END DO 
DOSI1-1.NJ1 
IFOVELEQ-iyTHEN 
CALL VEL_POR(IlJ s W_OR_l JVEL_1 ) 
IVEL=2 
END IF 
DO I2-1.NA 
DO B-1.NJR 
C1(I2J3>-S(I2J1J3) 

P1(I2J3)=P(I2J1J3) 

END DO 

END DO 

JJ=I1 

MT»1 

IF(LLl.EQ.l -AND. LL2-EQ.1)THEN 
ITCNT&-13 

ELSE IF(LL2.EQ.iyrHEN 
ITCNT0-7 
ELSE 
ITCNT0=5 
END IF 

IF(IND0.EQ.1)THEN 

CALL DIFFEQ2(C1.P1.NEQ,NJR,1JTCNT0) 
ELSE 

CALL DIFFEQl(Cl,Pl,NEQJ4JR.Utcnt0) 
END IF 

DOM1-1J4EQ 
DO M2=1,NJR 
S(M1J1.M2)=C1(M1.M2) 

END DO 
END DO 

5 CONTINUE 
DO10Il=l,NC 
DO10I2=l.NJl 
DO 10I3-UUR 
IF (SGI J2J3).GE.l .0E-15)THEN 
IF(ABS(S(I1J2J3)-C2(I1J2J3))/ 
S(I1J2J3).GT.1.0E-2)THEN 
GO TO 25 
END IF 
END IF 

10 CONTINUE 

ff (LL1 .GEiyGO TO 205 
25 IF(INDO.EQ.iyrHEN 
DO 35 LLL=1,5 
DO 15 11=1X71 
13=11 
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L13=2*NC+1 
DO M 1=1,3 
DO M2=1*NJR 
C1(MIM2)=S(LIUIM2) 

PI (M l,M2)=P(L13 f Il *M2) 

END DO 
L13-L13+1 
END DO 
MT=0 

CALL DIFFEQ2(C1,PU^JR,Z4) 

L13=2*NC+1 

L31-L13 

DOMl»l,3 

DOM2-LNJR 

S(L13J1*M2)*C1(M1*M2) 

END DO 
L13=L13+1 
END DO 

15 CONTINUE 

DO 17 Il=L31,L31+3 
DO 17 12=1,NJ1 
DO 17 B=1*NJR 
IF(S(I1J2J3).GE.1.0E-15)THEN 
IF(ABS(S(I1 J2J3 )-C2(l 1 J2J3))/ 

S(I1J2J3).GT.1.0E-2)THEN 
GO TO 35 
END IF 
END IF 

17 CONTINUE 

IF(LLL.GE^)GOTO20 
35 CONTINUE 
END IF 

20 CONTINUE 

c if M3=0 the pressure and velocity will be computed once, which is the best 
c choice since the change of these two v&iables are mfintidimal in Z 
c direction 
205 M3=0 

IF(M3.EQ.O)GO TO 433 

c change the name of gas temperature, velocity, and pressure for INE DIFFdiffeql subr 
DO I2=1*NJ1 
Cl ( 1 J2)=S(L4 J2J ) 

P1(1J2)=P(L4J2,1) 

C1(2J2)=S(L5J2J) 

Pl(2J2>rP(L5J2,l) 

C1(3J2>=S(L6J2,1) 

P1(3J2>=P(L6JZ1) 

C1(4J2)=S(L1J2,1) 

P1(4J2>*P(LUZ1) 

END DO 

c call DIFFEQl to solve the velocity and the pressure equations 

CALL DIFFEQl(CU>13*NJli5) 

c rename die velocity and pressure variables 
DOI2-1.NJ1 
DO 11*1 

P(L5J2J1)=S(L5J2J1) 

S(L5J2J1)=C1(2J2) 

P(L6J2J1)=S(L6J2J1) 

S(L6J2J1)=C1(3J2) 

END DO 

P(L4J2,1)=S(L4J2,1) 

S(L4J2,1)=C1(1J2) 

END DO 

c comulating time step 

433 T_TIME=T_7IME+DELT*60. 
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HME-TIME+DELT 

c increase the time step after some initial time steps, since the equations 
c are more stable 

IF(LL.EQ.25)DELT=DELT*2 
C IF(LL.EQ.50)DELT=DELT*2 
c convert the varibale for printing the data 
DO 74 Ml*l,NJl 
DO 74 M2-1.NJR 
DOI1-1.NC 

QPai>ll>i2)-SaU^lJ^2)*10.73DO*S(LlJHl>I2r76O/14.696 
END DO 

DOIl-NC+U*NC 

QPaiJ^l>t2)-Sai>llAI2)*10.73DO*S(LZMl>I2)*760A4.696/75 
END DO 

QP(Ll.Ml.M2>-S(Ll,Ml.M2)-460. 

QPOAM1>I2)«S(L2J41J42)-460. 

QP(L3.Ml.M2)=S(L3,Ml.M2)-46(). 

QP(L4,M 1 J42>eS(L4 J4 1 J42) 

QP(L5,M1.M2)=S<L5,M1,M2) 

QP(L6.M1.M2>=S(L6.M1.M2) 

74 CONTINUE 

c compute the inverse of bed radios, the RP varibles are calcu lt ed in FUNCT1 
IF(LUEQ.1)THEN 
DO K1-1.NJR 
IF(KlJfE.l)rrHEN 
RPl(Kl)=iyRP(Kl) 

ELSE 

RPl(lH). 

END IF 
END DO 
END IF 

c the average concentration is being computed by numerical integration far 
c every TSAMP" time steps 
ISAMP-10 

IF(LLL,T.130)ISAMP*1 
IF((LUISAMP)*IS AMP.EQIL) THEN 
c the averge is taken at 5 points in the axial direction. KK is the grid point 
c in axial direction, kl is comment number 
N AXIALsS 
DOKl=l,NC 
C KK=10 
KK^5 

DO K2=1JV_ AXIAL 

c the integration is done numerically by cubic spline; or by Simpson method 
IF(ICU_SIM.EQ.1)THEN 
DO K3=1.NJR 

Yl(K3^S(KUaUO)*S(LUaUC3)*555.*RPl(K3) 

END DO 

CALL CUBSPL(RP1,Y1,NJR,1,C_ J AVE(K1,KK)) 

C AVE(KUaC)-C_AVE(Kl,KK)»2yRPl(NJR)/RPl(NJR) 

ELSE 

DOK3-U 

Y2(K3)-S(KUaLK3)*S(LUaUC3)*555*RPl(K3) 

END DO 

CALL SIMPS(Y2^J>ELR0(1)JIESULT1> 

PART1»RESULT1 *2 
DO K3«5 Jf, JR 

Y3(K3-4>=S(KljaC.K3rS(LUtK.K3)*555*RPl(K3) 

END DO 

CALL SIMPS(Y3.NH,DELR0(NJR),RESULT2) 

PART2*RESULT2*2 

C AVE(KlJCKHPARTl + PART2VRPl(NJRyRPl(NIR) 

END IF 

IF(K2£Q.1)THEN 
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KK-25 
KK=15 

ELSE IF(K2.EQ.4)THEN 
C KK=101 

KK=51 
ELSE 

C KX=KK+25 

KK=KK+10 
END IF 
END DO 
END DO 

c printing the variables 
P_TIM E=T_TTME 

IF((LU(ISAMP*4))*ISAMP*4.EQXL.OR.LLEQ.l ) THEN 
WRITE(6,49) 

WRTTE(6,41)' '.C GRID MOUT(I).’ ’J=U) 

ENDIF 

AA=S(lJ25.irS(L1^5,ir555 

BB=S(Ul.irS(Ll^l.l)*555 

cc=S(2^5.1 r S(L105.1 )*555 

dd=S(Z51,irS(Ll^l.l)*555 

WRITEC,*)AA3B,cc4d 

WRTTE(6.49) 

WRTTE(6,40)‘**** TIME = 'J>_TIME,'LOOPS = ',LL1,' •**' 
WRTTE(6,43)PPC02 \(C_AVE(l,IOUT(D)J=1.5) 
WRITE(6.44)FPN2 \(C_AVE(2JOUT(I))J=1.5) 
WRITE(6,44)'GAS TEMPS \(QP(LUOUT(I)>l)J=1.3) 

IF((LL/(ISAMP* 10))*IS AMP* 10.EQ.LL) THEN 
WRITE(50,46)(P_TIME.RP 1(1). 

& ((QP(JJOUT(K)J)JC=l^y=U)J=U3^) 

ENDIF 

WRITE(60.45)P_TIME,((C_AVE(LIOUT(J))J=14)J=U). 

& (QP(LUOUT(D,DJ-U) 

WRITE<70,45)P_TIME((QP(JJOUT(I).1)J»1^),J*1.2), 

& (QP(LlJOUT(D.l)J=U) 

ENDIF 

DOIl=l.NEQ+2 
DOI2=l,NJl 
DO I3=1.NJR 
PaiJ2J3>=SaUZB) 

END DO 
END DO 
END DO 
END DO 

40 FORMAT(1X,A1ZG10.Z32X.A8J4,A5,/) 

41 FORMAT(lXA12^<A7J3.A2)) 

42 FORMAT(lX,6(A12)) 

43 FORMAT ( 1>LA 1 0,5(2X,G 1 0.2)) 

44 FORMAT(1X^10^(2XJ10.2)) 

45 FORMAT(lX,16(E15.5,7)) 

46 FORMAT(lX.17(E15^;.')) 

47 FORMAT(lX.TIME'.15(7.A5J3)) 

48 FORMAT(lX,TIMEJt INCHES',15(Y,A5J3)) 

49 FORMAT(1X.70('-')) 

STOP 

END 

C 

C this subroutine is being called by maine routine once to get the intial 
c values and the neccessary parameters 
c 

SUBROUTINE INITIAL_Z 
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IMPLICIT REAL*8(A-H.0-Z) 

REAL*8 K_F(4XK_FO(4)JVlOL(4),M AVEJH_W(4).BC 1(4).MW,Q1(4), 

SS(4),Q2(4) 

CHARACTER’S DATE 
CHARACTER* 14 INFILEAJNFILEB 
COMMON/DATE/DATEJSAT 
COMMON/BND3/S(14.201,101),P(14.201,101) 

COMMON/BND2/N < NJ2J^JJTPRT JTCNT.NJ 1 

COMMON/PROP B Z/REC,VOID_BX>_LD E,S_B.ALF,GC.ZJ>1_W 

COMMON/PROP_D_Z/DELZJDELT,TIMEJ)ELR 1 .DELR2JZJT.NC.NJR.NP 

COMMON/PROP_S _Z/CP_S,RO_S,AlNT.R P,D_P,CON_Sl,HEAT(4) 

COMMON/PROP_W A1VCP_W A30_W A.ERRORO.ERROR 1 

COMMON/INIT _Z/RO_FO,U_FO,U_F1,CP_FO,T_FO,TO.C_FO(4),K_F,P_C(4) 

COMMON/MISC_Z/R,G_F.PU>_TOT3C_L1JC_L23C_U3C_U3C_L53C_1 

COMMON/INDIC/LlX2i3J>tJ-5X6iL 

COMMON/INDIC 1/IND(4) 

COMMON/GAS/INERT,NCOMP.MW 

COMMON/NCY/NC1 

COMMON/PRIME/GN2.RA.RAV, EPS EX.RHOS.TAMB.ALPHAl,UINS.HW ALLIEN 


SELECT FILE CONTAINING INPUT SET A 
INFILEA - DATE // '_ADAT 

OPEN (UNIT-40 JILE»INFILEA,STATUS= , OLD') 

C SELECT FILE CONTAINING INPUT SET B 
INFILEB - DATE // JB-DAT 

OPEN (UNTT-41 JILE-INFILEB.STATUS-'OLD') 

C Initialization 


READ(UNITm40,FMT=*)END.DELT.NJ.NJR,DELZ,TAMB,G_F,TO.NCOMPJNERT. 
. P_TOT.P_C( 1 ),P_C(2).P_C(3),P_C(4)JZJ}_RD_LRO_WAEPSEX. 

. AINT.CP S.RO_S.M_W(lXM_W(2).M_W(3LM_W<4).HEAT(lLHEAT(2). 

. HEAT(3)iIEAT(4).K_F(l)JC_F(2XK_F(3)JC_F(4)3RRORO£RRORl 
READdJNTT-41 JMT=*)S B.CP WAJlA.RAV3HOSALPHAl.R_P.D_P.R3I. 

. UINS.HWALLNC.T FO.GC,CON_S 1 .NP.PT.LEN, VOID_B JND( 1 )JND(2). 

. IND(3 )JND(4)JDES 1 JS AT 
c the number of co m po n ent 
NJ1-NJ 
NC1-NC 

c number of equations 
N-NC*2+3 
c number of grids 
NJ2-NJR 

c number of grids in radial directions, variable grids were used for efficincy 
Al-21 
A2-104 

c 90 percent of the radious was used for the first 49 grids and 10 percent 
c for 71 remainder 

DELR1- .93*D_I/2/(Al-l) 

DELR2* .07*DJ/2/(A2) 
c volume of solid/volum of porosity 
ALF=(1.0D0-VOID_B)/VOID_B 

Nl-1 
IND3-0 
IND4-0 
DO 11=1,4 

IF(IND(I1)3Q.1)THEN 

M_W(N1)=M_W(I1) 

P_C(N1)-P_C(I1) 

HEAT(N1)=HEAT(I1) 
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K_F(N1)=K F(I1) 

IF(I1.EQ.3)THEN 

IDES=N1 

IND3=N1 

ELSE IF(I1.EQ.4)THEN 
IND4=N1 
END IF 
N1=N1+1 
END IF 
END DO 
SUM_Y=0 

c find the partial pressures and average molecular weight 
DO I=1*NC 
Y_F=P_C(I)/P_TOT 
SUM Y=SUM_Y+Y_F 
M_AVE=M.AVE+Y_F*M^Wa) 

END DO 

M AVE=M_AVE-K1-SUM_Y)*28. 

MW=M_AVE 

c Ll is the gas temp, L2 is the solid temp, L3 is the wall temp, L4 is the 
c velocity, L5 is the total pressure, and L6 is the total pressure witout 
c thermal effect 
c 

L1=2*NC+1 

L2=L1+1 

L3=L2+1 

DUL3+1 

L5=L4+1 

L6=L5+1 

C 

C BOUNDRY CONDITIONS 
C 

DOIl=l,NC 

bc lai^p.caiysss.od'o 

END DO 
BC_Ll=TO 
BC_L2=TO 
BC L3=TO 

BC~L4=G F/D I/D_I/PI*4/VOIDJB 
BC_L5=P_TOT 
BC L6=BC_L5 
C 

C INITIALIZATION OF VARIABLES 
C 

DO 1=1 J^J 
DO J=1,NJR 
P(L1JJ)=BC Ll 
P(L2JJ>BC_L2 
P(L3XJ)=BC L3 
P(L4JJ)=BC L4 
P(L5XJ>=BC_L5 
P(L6JJ)=BC_L6 
S(L1JJ)=BC_L1 
S(L2JJ>=BC L2 
S(L3JJ)=BC_L3 
S(L4JJ>BC_L4 
S(L5JJ)=BC_L5 
S (L6 JJ)=B C_L6 
END DO 
END DO 
DO I1=LNC 
DOI2=LNJ 

DO I3=1,NJR 
P(IU2J3)=0. 



sauzDH). 

END DO 
END DO 
END DO 
DO 1=1 JTC 
DO J=1 JJJR 

sai.J>-Bc_ia) 

END DO 
END DO 

IF(IND3.NE.0)THEN 
DO 12-1 JO 
DOI3=lJOR 

S(IND3J2J3)=BC_1(IND3) 

END DO 
END DO 
END IF 

IF(IDES 1 £Q. 1 )THEN 
SS(IDES)=S(IDES.U) 

CALL IST_Z(1.S(L2,U),SS,Q2) 

DO 1=1 JTC 
Q20>>Q2arRO_S 
END DO 
DO 11=1 JO 
DO 12=1 .N JR 

S(IDESJ1J2)=BC_1(IDES) 
P(IDESJ1J2)=BC 1(IDES) 
S(NC+IDESJU2)=Q2(IDES) 
P(NC+IDESJU2>=Q2(IDES) 

END DO 
END DO 
END IF 

EF(IND4.NE.0JTHEN 
DO 11=1 JO 
DO 12=1 JI JR 

S(IDES+1J1J2)=BC_1(IDES+1) 
P(IDES+U1 J2)=BC_1 (IDES+1 ) 
S(NC+IDES+U1J2)=Q2(IDES+1) 
P(NC+IDES+1 J1 J2)=Q2 (IDES+1 ) 
END DO 
END DO 
END IF 

IF(ISAT.EQ.1)THEN 
DO 11=1 JTC 

ssai>=Bc_iai) 

END DO 

CALL 1ST JZ(1.S(L2.U),SS,Q2) 
DOI-UNC 
Q2(I)=Q2(I)*RO_S 
END DO 
DOI1-LNC 
DO 12*1 JO 

DOB-1JOR 

S(IU2J3)=BC_iai) 

S(I1+NCJ2J3)=Q2(I1) 

pau2j3)=Bc_iai) 

Pai+NCJ2J3)=Q2ai) 

END DO 
END DO 
END DO 
D0I1=1JIC 

BC_1(I1)=0 
END DO 

BC_l(IND3)=P_C(ind3y555.0/TO 
end if 



u u 


RETURN 

END 


SUBROUTINE VEL_POR(JJ,NJ_OR 1JVEL.1) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 U(14i01)£PS(1000),UI(10U01)^l(14 f 201) t V(30) t 
. VS (30), RP(30),EPS 1(1000) 

COMMON/UG/U_GUESS,EPS 

COMMON/OLD/ AA( 1 4).SUM( 1 4),COLD( 1 4,20 1.1 01 ) 

COMMON/B ND/A(14,1 4)3(14, 14),C(1 4,201 ),D( 14,29 )JC(14, 14), 

. Y(14,14XG(14),F(14XP(14,201) 

COMMON/NE W _G RID/DELR0( 1 0 1 ), ALF1 (101 ) JMGR 1 ,NGR2 
COMMON/BND2/N J^J2vNJ JTPRT JTCNT.NJ 1 
COMMON/BND3/S(14,20U01) 

COMMON/PROP_B_Z/REC,VOID„BJ)^LD_E,S.B^LF,GCiM_W 
COMMON/PROP.D ^7DEI^DELT,TIME3ELRl3EUaJZJTJ4CJ^JRJ4P 
COMMON/PROP_S _Z/CP_S.RO_S,AINT,R P.D _P,CON_S 1 ,HEAT(4) 
COMMON/INDIC/L 1 J-2X3 34 J-5 ,L6 XL 
COMMON/NCY/NC1 

COMMON/PRIME/GNZRA*RAV,EPSEX,RHOS,TAMB,ALPHAl,UINS,HWALULEN 
DATA R 1/555 7 

c a number to make the division of grids correctly 
IF(IVEL 1EQ.0)THEN 

m=2 

c there is a temperature difference between the gas and solid phases 

EC=l./VOID_B-l. 

DP=R_P*2. 

c grid number for velocity dietxibution 
NP 1=125 
TR=DJ/DP 

c grid fraction for abnost-constant velocity section in the radial direction 
FRAC1=.93 

c grid fraction for variable velocity section in the radial direction 
FRAC2=.07 

c number of grids in the talk section 
Kl=21 

c number of grids close to the wall 
K2=104 
K11=K1 
K22=K2 
IR=5 

c start computing the velocity profile 
c guess the velocity at the center of the column 
U GUESS=1.0 

133 IFOLGUESSEQ. 1 .0)THEN 

c set the radial grid velcides to guess one if it is the first itration 
DO 11=1 JsTP-1 
U(JJJ1 )=U_GUESS 
END DO 
ELSE 

c if not set it to the most recent one 

DOIl*2JflM 

U(JJJ1)-C(U1) 

END DO 

U(1,1)=U_GUESS 
END IF 

c at wall no-slip flow, therefore velocity is zero 
U(JJ,NP)=0. 

RO_F=S(L5 JJ,1 VS(L1 JJ, 1 )/R 1 
IF(U_GUESSJEQ. 1 )THEN 
GN=S(L4,JJ,1)*RO_F/60.*VOID_B 
ELSE 

GN=UD*RO F 
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END IF 

T_GAS=S(L1 JJ,1) 

REY_D*RE(GN,T GAS) 

REC* 1.75/150 *REY D/(l-VOID B) 
US^(1.+4.*REC)**.5-1.)/(2*REC) 
c "DIFFEQ1" is the main routine to compute the velocity profile 
CALL DIFFEQ1(U.A1,1,NP33) 
c if converged go out 

IF(ABS(U GUESS-C(U)).GT.L0E-7)THEN 
U GUESS-C(U) 

UD®S(L4,JJ, 1 rVOID.B/C(U)/60. 

GO TO 133 
END IF 

c the velocity obtained is a intrinisic velocity multiplying by porosity 
c gives seepage velocity, here c(l Jl) is array of variable vdocity which 
c is being calculated in one of the subroutine of DIFFEQ1 routine 
DO 11*1 J^P 

U(XUl>-C(UirUD*60. 

ui(nji>-c(ui) 

END DO 
DOWJ^P 
EPsiai>-HPsai) 

END DO 
idrir_ml=5 
idelr_in2*7 
nl=l 

deWXnl )=delr 1 *5 
eps(nl)«eps(nl) 
alfl(nl M 1 -«ps(nl ))/eps(nl ) 
iffaj_ar_l .eq. 1 )then 
do ib^ljij 

s(14464il)«u(ij*l)/eps(nl ) 
end do 
else 

s(M46jil >m(ij,l yeps(nl) 
end if 

do i8«5,20.5 
nl»nl+l 

deb0(nl)*=delrl*5 
eps(nl>*eps(i8) 
alfl(nl)=<l-cps(nl ))/eps(nl ) 
if(nj_or_l .eq . 1 )then 
do i6=l jij 

s04,i6jil )=u(ij48)/eps(nl) 
aid do 
else 

s04i6 jil )«u(ij,i8yeps(nl ) 
end if 
end do 
ngrl*nl 
do i8=27, 125,7 
nl*nl+l 

deWXnl )*delr2*7 
eps(nl>^eps(i8) 
alfl(nl HI -eps(nl ))/epe(nl ) 
if(nj__or_l .eq.l )then 
do i6*l jij 

s(14464il )«u(ii48)/eps(n 1 ) 
end do 
else 

s(U464il )=u(ij,i8yeps(nl ) 
end if 
end do 

if(nj_or_l .eq.l )then 
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no 


do i6=ljij 

s(14,i6 1 >=u(ij, 124)/cps(l 24) 

end do 
else 

s(!4,i6J41 >=u(jj. 1 24)/eps( 124) 
end if 

ngr2*nl-ngrl 

ELSE IF(TVEL_1 *EQ. 1 )THEN 
0*1.4 
NJR1*6 
NJR2=NJR-10 

DELR1 1=.8*DJ/(2*(NJR1-1)) 
DELR12^.2*DJ/(2*(NJR-NJR1)) 

DELR0(1)=DELR11 
DELRO(N JR )=DELR 1 2 
EPS(l)=VOID_B 
EPS(NJR>=V OID_B * ( 1 +C 1 ) 

ALF1 ( 1 M 1 -EPS(1 ))/EPS(l ) 

ALF1 (NJRH 1 -EPS(NJR))/EPS(NJR) 

11=2 

D0K=NJR-2,1,-1 
IF(1 1 JLE.NJR 1 )THEN 
Y3={NJR1-1)*DELR11+NJR2*DELR12 
DELR0(11 >=DELR1 1 
ELSE 

Y1=DELR12*K 
DELR(KI1)=DELR12 
END IF 

CALL COEF2(Y 1 /VOID_B XLP.Cl *POR) 

EPSai>=POR 

ALF1(I1)=(1-EPS(I1))/EPS(11) 

11 = 11+1 
END DO 
RP(1)=0. 

RP(NJR>»1. 

DO K=2*NJR-1 

RP(K)=2*DELR0(K)/DJ+RP(K-1) 

END DO 

VAV=S(L4,1,1)*EPS(1) 

NJJ=NJR 

RMS=1.-2*D_P/D_I 

BO=.16*(DJP/(D_I))**(-3./2.) 

AO* 1 V(BO+2.}-RMS/(BO+ 1 ) 

A2=RMS/(B0+1 .) 

A3=l./(BO+2.) 

D 1 =AO/2.+A2/ (B 0+3 .)-A3/(BO+4.) 

D0I=1>TJJ 

VS(I)=(AO+A2*(RP(I)**(BO+l.)}-A3*(RP(I)**(BO+2.)))/ 

(2*D1) 

END DO 
D0I=1,NJJ 
va>*vsarvAv 

do i6=ljij 
s04 t i6j)=v(i)/eps(i) 
end do 
END DO 
END IF 
RETURN 
END 


c this subroutine is being called by maine routine to compute the variable in 
c C matrix, in this routine first velocity profile is being determined the 
\ c conductivity, diffusivity,pososity are being calculated in this 
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c routine by calling the approperiate subroutine, the routine obtained the 
c C matix in axial and radial directions, it itrates till it oonveges to the 
c alloweble error 
c 

SUBROUTINE FUNCT4(J1) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL* 8 K_F(4),K FO(4XMOL(4),M_AVE>l_W(4),NU NPNU_NW,KGAS, 

• K_FP(4a0I.201)3C_l(4)J>_L(4),Q2(4)MWAl(14.201), 

. C1(14^0U0D.D_RF(4).U(14^01)XPS(1000).E(30)AKTC30). 

. C2(1400U01XF01(101).F11(101),F21(101).F02(101), 

. F12O01)J22(101)JlP(101)J)R(101)JlR0<101)J> LP_R(4,20U01). 

. D_LP_Z(4^0U01).U1(101J01XYO(4)^S(4XRATE_H1(20133) 
COMMON/UG/U_GUESS,EPS 
COMMON/OLD/ AA(14XSUM(14),COLD(14,20U01) 
COMMON/BND/A(14.14XB(14,14XC(14^01)J)(14^9XX(14,14). 

. Y(14,14),G(14).F(14)J>(14J01) 

COMMON/BND3/S(14,201;101) 

COMMON/NEW_GRID/DELR0(101LALFl(101)JsIGRlJ4GR2 
COMMON/BND2/N J JTPRT JTCNT^IJ 1 

COMMON/PR_OLD_Z^CON Z<201.101) t CON_R(20U01),CON_S(201,101). 

. H_W(201,101XCP_P(20U01)JI_FP(20U01).Q(4.20U01), 

. VISC_P(201,101)E)_LPP(4J01XRATE_C1(201.101) 

COMMON/PROP, WAL/CP WAJIO_WA.ERRORO£RROR1 
COMMON/PROP_B_Z/REC.VOID_BX>_LD_E^_BALF,GCZJ4_W 
COMMON/PROP .DJZ/D ELZJ> ELT.TIMEJ>EI -R 1 DEI .R2-17-JT.Nr.NlR NP 
COMMON/PROP_S_Z/CP_S,RO_SAINT.R_P,D_P,CON_Sl.HEAT(4) 
COMMON/INIT _Z/RO FO.U FO.U Fl.CP FO,T FO.TO.C FO(4XK F.P C(4) 
COMMON/MISC_Z/R,G_F,PLP_TOT3C_Ll3C_L23C_L33C_UJC_L53C_l 
COMMON/INDIC/L1 L2X3X4 XiX6XU^3 JIJJJVEL 1JHT 
COMMON/INDIC 1/IND(4) 

COMMON/RADIAL/RP 
COMMON/G AS /INERT J^COMPJdW 
COMMON/NCY/NC1 

COMMON/PRIME/GN2.RA.RAV,EPSEX,RHOS,TAMB^LPHAl.UINS.HWAmLEN 
DAT A EMIS.R 1 JONCEJON CEJCOUNT JCOND 1 JCOM/.9.555 ,0,0,0. 1,1/ 
c there is a temperature difference between the gas and solid phases 
c IF(LL.EQJCOM)THEN 

c BC_L1=TEMPIN(TTME) 

c ICOM-LL+1 

c END IF 

IF(Jl.EQ.l AND. IONCE.EQ.O)THEN 
IONCE=l 
NJ OR 1-1 
I_SOL_FLO=0 

c an indication number for type of gas to compute the gas conductivity, 
c 1*N2, 2*air, 3*co2 
IGAS-1 
DP-R_P*2. 

ff(TVEL_l.EQ.l)THEN 
IR»10 
ELSE 
IR=5 
END IF 

c calculating die area for heat transfer to the wall or from the wall 
D T=D_E+DJ 
X W=D_E-D_I 

A C-2*D_U((D_I+D_E)*X_W) 

A_INS=2*D_E/((D_I+D_E)*X_W)* 1.4 
c heat transfer coefficient outside of the wall 
H OW-O.l 
END IF 

c call vel_por to compute velosity and porosity profile 
IF(Jl.EQ.l AND. JONCE.EQ.O)THEN 
JONCE=l 
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c compute the ratio of distance from the center to each grid over the pellet 
c diameter 
RR=0. 

RR0(NJR)=0. 

DO 15=NJR-U1,-1 
RR=RR+DELR0(I5+1 )/D _P 
RR0(I5>=RR 
END DO 

c this section calculates the coefficients to the discretized PDE's 
c 

c compute the inverse of distance from the center to each grid 
RR*=0. 

DOI5=l*NJR 
IF(I5NE.1)THEN 
RR=RR+DELR0(I5 ) 

RP(I5>=17RR 
ELSE 
RP(I5 =0. 

END IF 

IFfl5.LT.IR) THEN 
DELR=DELR0(1) 

DR(I5)=DELR 
ELSE IF(I5.eqJR)THEN 
DELR1*DELR0(IR) 

DELR2=DELR0(IR+1 ) 

DELR=DELR1 
DR(I5)=DELR 
FR=DELR2yDELR 1 

c these variables are be in computed at the pent where two adjant grids are 
c not the same size 

F01(I5)=FR/(1+FR) 

F11(I5ML-FRVFR 

F21(I5)=1V((1.+FR)*FR) 

F02(I5>s=17(1+FR) 

FI2(15)=iyFR 
F22(I5)=1 7((1 .+FR)*FR) 

ELSE 

DELR=DELR0{IR+1 ) 

DR(I5)=DELR 
END IF 
END DO 
END IF 

c this section calls the proper subroutine to compute the parameters such as 

c diffusivity, conductivity 

IF(MT.EQ.1)THEN 

IF(Jl.EQ.l AND. 1COUNTXT JJTTHEN 
I5*JJ 

ICOUNT«ICOUNT*fl 
DO 16=1 
DOMl*l,NC 

Y0(M1>=C(MIJ6)*R1*C(L1J6)/S(L5J5J6) 

END DO 
TEMP=C(L1 J6) 

M AVE=0 
SUM Y=0. 

DOMl=l.NC 

M_AVE=MJVVE+Y0(M1)*M_W(M1) 

SUM Y=SUM_Y+Y0(M1) 

END DO 

M AVE=M AVE-K1 -SUM_Y)*28. 
R0_F=S(L5J5J6)/(C(L1J6)*R1) 
IF(RO_FJ-E.O)RO_F=P_TOT/(C(L1 J6)*R1 ) 

GN=S(L4 J5 J6)* RO_F/60.* V OID_B 
c calculate Reynolds number 
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on 


REY=RE(GN.TEMP) 
c calculate specific heat of gas phase 

CP_P(I5J6)*CPGAS(TEMP,YO) 
c calc viscosity 

VlSCJ>(l5J6hVlS<JEMP)*60. 
c calc heat transfer coeff 

H_FP(I5J6)«HFILM(MW,TEMPJlEY t CP_P(I5J6))*60. 
i test 11*0 

IF(ITEST1 1 XQ.O) MN=2 

c this section compute the conductivity of gas and solid in axial and 
Cradial H fract ion* 

CALL PHLCOND(IGAS ,TEMP.CON_S 1 ,EPS( 1 ) J’HLPHIW) 

CALL CONDU(MNJGAS J»HLD_P,CON_S l.RR0a6),U 1(U6),REY, 
TEMP,EPS(I6),EPS( 1 ).EFF_CON_R 1 ,CON_R 1 ,EFF_CON_Zl , 

CON_Zl ,CON_Pl .NJILNGR1 .NGR2J6) 
c if there is • lep mp e rm mre difference between die gas and solid 
IF(I_SOL_FLQ.EQ. 1 )THEN 
CON_Zd5J6)-CON_Zl 
CON_S(I5J6)-CON_Pl 

c if there is no tepmperature difference between the gas and solid 
ELSE 

CON_Z(I5J6)-EFF_CON_Zl 
END IF 

c computation for number of co m pon e nt 
DOM1-1.NC 

c calc the molecular diffusrvity of eac com ponet in die mixture 
DIF-DIFF(M1.TEMP.S(L5J5J6),YO)»60 
c calc Schmidt number 

SC_N-VISC_P(I5J6VDIF/RO_F/M_AVE 
c calc axial diffusion 

CALL AXDIFF_R_Z(MN JG AS .PHLD_P,DIF,RRO(I 6),U 1 ( 1.16), 
REY3C_N,TEMP,EPSa6)XPS(l ),EFF_DIFF_RJEFF_DIFF_Z, 
njrjigrlJ4GR2J6) 

D_LP_R(M1J5J6)=EFF_DIFF_R 
D_LP_Z(MU5J6)=EFF_DIFF _Z 
D_LP _Z(MlJ5J6)-CON _Z(I5J6)/RO_F/CP_P(I5J6) 

END DO 

c calc the heat transfer coefficint between the gas phase and die wall 
IFd6.EQ.NJR) THEN 

IF(GN.EQ.O)GN=S(L4,1,1)*RO_F/60.*VOID B 
REY =RE(GN,TEMP) 

CALL HEAT WALLdGAS.PHIW.D_P.CON Sl,RR0d6),Ul(U6), 
REY.TEMP.VOID B,H_W1) 

H_W(I5J^JR)=H_W1 
END IF 

IFaCONDl.EQ.l)THEN 
VAV«G_F/DJ/D_I/PI*4 
GA«G_F/DJ/D I/PI*4.*RO F 
TAV«S(L1.1,1)A.8 
RO-S(L5,l.l)/S(LU.iyRl 
CP*CP_P(1,1) 

A VIS» VISC_P(1 .1 ) 

AK0.000358895+3.0026706379E-5*S(LU.l)-53528942E-9* 

1 S(Ll,UrS(LU,l) 

CALL CONDUCl(EMIS,CON_Sl.D P.D LGA,VAV.TAV,RO,CP.AVIS. 
1 AKCjmLEPSEX£PS(l).EPS(NJR)X>EIJlO^AKT) 

ICONDl-O 
END IF 

CON_R(I5J6)=AKTd6) 

IF (Ed6).LE.0)E(I6>=Ea6-l ) 

DOM1-1.NC 

C D LP R(M1J5J6>»AKT(I6)/R0/CP 

D_LP_R(M1J5J6)*E(I6) 

END DO 
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END DO 

IF(CQN_Z(I5 *NJR).EQ.O)THEN 
CON^Z(I5J^JR>=CON.Z(15>rJR-l) 

DO M1=1.NC 

D_U > _Z(MlJ5^JR)^ON_Za5^R)/RO.F/CP_P(I5J^JR) 

END DO 
END IF 
DO I1=1*NJ 
DO Ml*l J4C 

D_LPP(M1J1)=D.LP.Z(MUU) 

END DO 
END DO 
END IF 

c set the parameters to new variables 

J=JJ 

RO_F~S(L5 J J1 y(C(Ll J 1 T R1 ) 

DOMl-lJ^C 

D_L(M1 )=D_LP_Z(M 1 J J 1 ) 

END DO 
DO M1=1,NC 

D_RF(M 1 )=D_LP_R(M 1 J J 1 ) 

END DO 
DOIUIJMC 

ssaihcaui) 

END DO 

c call the isotherm to compute the equilibruixn concentration 
1F(l SOL FLO.EQ.1TTHEN 
CALL IST_Z(LC(L2J1)^S,02) 

ELSE 

CALL 1ST Z(l t C(LlJl),SS t Q2) 

END IF 

c based the equilibrium per unit volume of pellet 
DO 1=1 JVC 
Q(UJl>=Q2arRO_S 
END DO 

c this is die bo undry, the first grids in axial direction 
IFfLEQ.iyTHEN 
RATE_G=0 

c compute the total amount is being adsorbed 
DO M1=1,NC 

RATE ORATE C+K.F(M1)*AINT’(Q(M1JJ1)-C(M1+NCJ1)) 
END DO 

RATE C1(JJ1>=RATE, C*(1-EPS(J1)) 

RATE_H=0 

c compute the total heat of adsorption 

C HEAT(2)=-(41 1 .93585-57470.2733*0(3 J1 )/RO_S+397 1259.2258* 
C . C(3 J 1 )**2/RO_S/RO_S)*44 
DO MlsslJ^C 

RATE H=RATE_H+HEAT(M 1 )*K_F(M 1 )*AINT*(Q(M 1 J J1 )- 
C(M1+NCJ1)) 

END DO 

RATE.Hl (JJ1 >*RATE_H 

c this "if’ calc ulates die first grid in radial direction, center of the bed 
IF(J1.EQ.1)THEN 

c computation of molar density component 
TOT.C-O. 

DO M1*=1,NC-1 

A2=U(2*D UM1)DELZ*^+S(UJJ1VDELZ44*D.RF(M1V 
DR(J1)/DR(J1H1./DELT) 

P1=D L(M1)/DELZ**2»(BC_1(M1>+S(MU+U1)) 

P2=-S7l4,J,J1 )/(DELZ)» (-BC_1 (M 1 )) 

P3=-ALF1 (J1 )* AINT*K_F(M 1 )* (Q(M 1 JJ 1 >C(M 1+NC J1 )) 

P4=4*D_RF(Ml)*(C(MlJl+l))/DR(JiyDR(Jl) 

P5=-(-P(MUl))/DELT 
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F(M1)=-C(M U1 )-t-A2*(Pl+P2+P3+P4+P5) 

tot_c=tot_c+c(m ui) 

END DO 

F(NCHS(L5 JJ1 >-TOT_C*Rl *S(L1 JJ1))/R1/S(L1 JJ1 )- 
C(NCJ1) 

c computation of molar adsorption for each component 
DOM1-1.NC 

A2» 1 V(K_F(M 1 )* AINT +1 ,/DELT) 

F(Ml+NC>»-C(Ml+NCJl>t-A2*(K_F(Ml)*AINT*(Q(MlJJl))+ 

P(M 1 +NC J 1 yDELT) 

END DO 

c the same computation as above except it is now for die grid at the wall 
ELSE IFfJl .EQ.NJRJTHEN 
Torr_c-o. 

c comp of molar density of co m ponent 
DOM1-1.NC-1 

A2*1V(2*D_L(M1)/DELZ**2+S(L4,JJ1 VDELZ+2*D_RF(M 1 y 
DR(J1VDR(J1K1JDELT) 

Pl»D_L(MiyDELZ**2*(BC_l(Ml>+S(MlJ+lJl)) 

P2-S(U JJ1 )/(DELZ)*(-BC_l (Ml )) 

P3-ALF1 (J1 )*AINT*K_F(M1 )»(Q(M1JJ1 )-C(Ml+NC J1 )) 
P4-D_RF(M 1 )*RP(J1 )-(C(M 1J1 - 1)-C(M 1J1-1 ))/(2*DR(Jl)) 
P5.2*D_RF(Mir(C(MlJl-l)VDR(Jl)/DR(Jl) 

P6-P(MU1)/DELT 

F(M1 KC(M1 J1 >+A2*(Pl+P2+P3+P4+P5+P6) 

TOT C=TOT_C+C(M 1 J1 ) 

END DO 

F(NCHS(L5 J J1 )-TOT_C*Rl •S(L1JJ1)VR1/S(L1 J J1 > 

C(NCJ1) 

c comp the molar adsorption 
DOM1-1.NC 

A2*1V(K_F(M 1 r AINT+1 7DELT) 

F(Ml-rffC>=-C(Ml+NCJl>+-A2»(K_F(MirAINT*(Q(MUJl))+ 
P(M1+NCJ1 VDELT) 

END DO 
ELSE 

c the same computation as above except it is now for the grids from the center 
c to the pant where the velocity start to chane 
IF(J1KEJR)THEN 

c comp molar density of each c o mponent 
TOT C«0. 

DO M1=1,NC-1 

A 2 *U( 2 *D_L(Ml)/DELZ*» 2 +S(UJJiyDELZ+ 2 *D RF(MiyDR(Jl) 
/DR(JlHliDELT) 

P1=D_L(M1)/DELZ**2*(BC 1(M1HS(M1J+U1)) 

P2-S(UJJ1 V(DELZ)*(-BC_1 (Ml )) 

P3«=-ALF1(J1 )*AINT*K_F(M1 )*(Q(M1 JJ1 )-C(Ml+NCJl)) 
P4»D_RF(Ml)*RP(Jir(C(MUl+l)-C(MUl-l)y(2*DR(Jl» 
P5»D_RF(M1)*(C(MU1+1)+C(MU1-I)y 
DR(J1VDR(J1) 

P6— (-P(MUl)VDELT 

F(M1 V-C(M Ul >+A2*(Pl+P2+P3+P4+PS+P6) 

TOT C=TOT_C+C(MUl) 

END DO 

F(NCWS(L5JJl>-TOT_C*Rl*S(LUJl)yRl/S(LUJl> 

C(NCJ1) 

c compute molar adsorption 
DOM1-1.NC 

A2-U(K_F(M 1 )• AINT+1 7DELT) 

F(M1+NC>=-C(M1+NCJ1>+A2*(K_F(M 1 )»AINT*(Q(MUJ1))+ 
P(M1+NCJ1 VDELT) 

END DO 

c the same computation as above except it is now for the grids from the point 
c where the velocity starts to change to the wall 
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non 


ELSE 

TOT_C=0. 

c compute molar density of each component 
DO M1=1.NC-1 

A2=l V(2*D_L(M 1 )/DELZ**2+S(L4,J J 1 yDELZ+Fl 1 (J1 )*D_RF(M1)* 
RP(J1 )/DR(Jl H2*D_RF(M1 )*F12(J1 VDR(J1 )/DR(Jl )+l VDELT) 

P1«D LfM 1 )/DELZ**2* (SfM U+lJ 1 HBC_1 (M 1 )) 

P2=-S( L4.JJ1 )/(DELZ)*(-BC_l (Ml )) 
P3=-ALF1(J1)*AINT*K_F(M1)*(Q(M1JJ1)-C(M1+NCJ1)) 

P4-D RF(M1)*RP(J1)*(F21(J1)*C(M1J1+1)-F01(J1)* 

C(M 1 J 1 - 1 ))/(DR(J 1 )) 

P5=2*D_RF(Ml)*(F22(Jl)*C(Ml,Jl+l>t-F02(Jl)*C(Ml f Jl-l)) 

/DR(J1VDR(J1) 

P6=-(-P(MlJl))/DELT 

F(M1 >=-C(Ml,Jl)+A2*(Pl+P2+P3+P4+P5+P6) 

TOT G=TOT_C+C(MiJl) 

END DO 

F(NCMS(L5 JJ1 >TOT_C*Rl *S(L1 J J1))/R1/S(LU41 > 

CfNCJl) 

c compute molar adsorption 
DOMl=lJ^C 

A2=W(K F(M1)*AINT+L/DELT) 

F(M 1 +NC)=-C(M 1 +NCJ 1 HA2*(K_F(M 1 )• AINT* (Q(M 1.JJ1 ))+ 
P(M1+NCJ1)/DELT) 

END DO 
END IF 
ENDIF 


this section compute the S matrix variables for grid at z=L. the outflow 
c boundry 


ELSE IF(J.EQ.NJ1)THEN 
c compute the total amount adsorbed 
RATE C=0 
DO M1=1.NC 

RATE C=RATE_C+K_F(M1)*AINT*(Q(M1JJ1)-C(M1+NCJI)) 
END DO 

c compute the total heat of adsorption 

RATE Cl (JJ1 )=RATE_C*(1 -EPS(J1 )) 

RATE_H=0 

C HEAT(2K-(411.93585-57470^733»C(3J1)/RO_S+3971259^258* 

C . C(3J1)**2/R0 S/RO S)*44 

DOMl=lJfC 

RATE_H=RATE H+HEAT(M1)*K_F(M1)*AINT*(Q<M1 JJ1)- 
C(M1+NCJ1)) 

END DO 

RATE_H1 (J J 1 )=RATE_H 

c this section compute the s matrix at outflow boundry at the ceter of bed 
IF(Jl.EQ.l) THEN 
TOT_C«0. 

c compute the component molar density 
DOM1-1.NC-1 

A2=l 7(2*D_L(M1)/DELZ**2+S(L4,JJ1 yDELZ+4*D_RF(M 1 V 
DR(J1 )/DR(Jl >+-1 7DELT) 

P1«D L(M 1 )/DELZ**2*(2*S(M 1, J-l Jl)> 
P2*-S04J.J1)/(DELZ)»(-S(M1J-U1)) 

P3=-ALF1(J1 r AINT*K_F(M1 )*(Q(M1 JJ1 )-C(M 1+NC J1 )) 

P4=4*D RF(M1 )* (C(M U1 +1 ))/DR(Jl )/DR(Jl ) 

P5=-(-P(MUl))/DELT 

F(M1)=-C(M 1 J 1 >+A2*(P 1+P2+P3+P4+P5) 

TOT_C=TOT_C +C (M 1 ,J 1 ) 

V_ END DO 
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F(NC)=(S(L5JJ1)-T0T_C*R1*S(L1 JJ1)VR1/S(L1 JJ1)- 
C(NCJ1) 

c compute the molar adsorption 
DOM1-1.NC 

A2«l 7(K_F(M 1 )* AINT+17DELT) 

F(Ml+NC)=-C(Ml+NCJl>i-A2*(K_F(Ml)*AINT*(Q(MUJl))+ 

P(M 1 +NC J 1 VDELT) 

END DO 

c this section is for r at the wall 

ELSE IF(J1.EQ.NJR) THEN 
T0T_C*O. 

c compute molar density 
DOM1-1.NC-1 

A2-U(2*EtUMl)/DELZ**2+S(UJJiyDELZ+2*D RF(Miy 
DR(J1)/DR(J1H1VDELT) 

P1-D_L(M1)/DELZ**2*(2*S(MU-U1)) 

P2s=-S(L4JJl)/(DELZ)*(-S(Ml r J-lJl)J 

P3*-ALF1(J1)*AINT*K_F(M1)*(Q(M1JJ1>-C(M1+NCJ1)) 

P4=D_RF(M1)*RP(J1 )*(C(MU1 -1)-C(M1 J1 -1 ))/(2*DR(Jl)) 

P5=2*D_RF(Mir(C(MlJl-l)VDR(Jl)/DR(Jl) 

P6-<-P(MUl))/DELT 

F(M 1 )=-C(M 1 J 1 >+A2*(P 1 +P2+P3+P4+P5+P6) 
TOT_C=TOT_C4C(MUl) 

END DO 

F(NCMS(L5JJD-T0T_C*R1*S(LUJ1)VR1/S(LUJ1)- 

C(NCJ1) 

c compute molar adsorption 
DOM1-1.NC 

A2-17(K_F(M 1 r AINT+1 VDELT) 

F(Ml+NC)--C(Ml+NCJl)+A2»(K_F(MirAINT»(Q(MUJl)H 
P(M1+NCJ1 VDELT) 

END DO 
ELSE 

c this section computes S matrix for those grids with constant grid siz 
IF(J1J^EJR)THEN 
TOT.OO. 

c compute molar density 
DOMU1.NC-1 

A2»W(2*D_L(Ml)/DELZ"*2+S(L4JJiyDELZ+2*D RF(Miy 
DR( J 1 )/DR( J 1 >t- 1 VDELT) 

P1»D_L(M1)/DELZ**2*(2*S(M1,J-1J1)) 
P2»-S(L4J.J1)/(DELZ)*(-S(M1J-1J1)) 
P3=-ALFl(Jl)*AINT*K_F(Mir(Q(MUJl)-C(Ml+NCJl)) 
P4*D_RF(Ml)*RP(Jl)*(C(Ml,Jl+l>-C(MlJl-l)y(2*DR(Jl)) 
P5»D_RF(M 1)*(C(M1J1+1 )+C(M Ul-l)yDR(Jl yDR(Jl) 

P6-<-P(MUl))/DELT 

F(M 1KC(M U1 KA2*(P1 +P2+P3+P4+P5+P6) 
T0T_C=T0T_C4C(MU1) 

END DO 

F(NCHS(L5JJl)-T0T_C*Rl*S(LUJl)yRl/S(LUJl> 

. C(NCJ1) 

c compute molar adsorption 
DOM1-1.NC 

A2*1V(K_F(M1)*AINT+1VDELT) 

F(M1+NC)»-C(M1+NC41KA2*(K_F(M1)*AINT*(Q(MUJ1))+ 

P(M 1 +NCJ1 VDELT) 

END DO 

c this section compute s for variable grid size 
ELSE 
TOT.C-0. 

c compute the molar density 
DOM1-1.NC-1 

A2=l V(2*D_L(M 1 )/DELZ«2+S(L4JJl VDELZ+F1 1 (J1 )• D RF(M 1 )• 
RP(JiyDR(Jl>+2*D RF(M 1 )*F12(J1 )/DR(J 1 )/DR(Jl >+l VDEL.T) 
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nnn 


PI «D_L(M 1 )/DELZ**2*(2*S(M U-Ul )) 

P2=-S(L4,J. J 1 )/(DELZ)*(-S(M 1 J- 1 , J1 )) 

P3=-ALF 1 ( J1 )*AINT*K_F(M 1 )*(Q(M 1 J J 1 )-C(M 1+NC J 1 )) 
P4=D_RF(M 1 )*RP(J1 )*(F2 1 ( J 1 )*C(M 1 J1 +1 )-F0 1 (J 1 )* 

C(M1 J 1 -1 ))/(DR(J 1 )) 

P5=2*D RF(Mir(F22(Jl)*C(Ml,Jl+l)+F02(JirC(MUl-l)) 
/DR(J1)/DR(J1) 

P6-<-P(MUl))/DELT 

F(M 1 >— CfMUl >+A2*(P 1 +P2+P3+P4+PS+P6) 

TOT C*T0T_C+C(MU1) 

END DO 

F(NCMS(L5JJD-T0T_C*R1*S(LUJ1)VR1/S(L1JJ1>- 

C(NCJ1) 

c compute molar adsortxion 
DOM1-1.NC 

A2=1V(K_F(M 1 r AINT+1 7DELT) 

F(Ml+NC)=-CfMl+NCJlh-A2*(K_F(Ml)*AINT»(Q(MlJ.Jl))+ 

P(M1+NCJ1VDELT) 

END DO 
END IF 
END IF 


c this section computes the s matrix for grids inside of the column 
c 

ELSE 

c comp total molar adsorption 
RATE C=0 
DOM1-1JMC 

RATE C=RATE_C+K_F(M 1 )• AINT* (Q(M 1 J J 1 >C(M 1 +NC J 1 )) 
END DO 

c compute total heat of adsorption 

RATE C1(JJ1>=RATE_C*(1-EPS(J1)) 

RATE H=0 

C HEAT(2>=-(41 1.93585-57470.2733*C(3,J1)/RO_S+3971259.2258* 

C . C(3,J1 )**2/RO_S/RO_S )*44 

DO M1=1.NC 

RATE_H=RATE_H+HEAT (M 1 )*K_F(M1 )*AINT*(Q<MUJ1)- 
C(M1+NCJ1)) 

END DO 

RATE.Hl (JJ1 )=RATE_H 
c this section copm s for the grids at the center of bed 
IF(Jl.EQ.l) THEN 
TOT_O0. 
c comp molar density 
DO M1*1.NC-1 

A2=17(2*D_L(Ml)/DELZ**2+S(L4JJiyDELZ'+4*D_RF(Miy 
DR( J 1 )/DR( J1 >+ 1 7DELT) 

Pl«D_L(Ml)/DELZ»»2»(S(MU-UlhS(MU+lJl)) 
P2=-S(L4JJ1 )/(DELZ)*(-S(Ml J-Ul )) 

P3=-ALF1 (J 1 )* AINT*K_F(M 1 )* (Q(M 1JJ1 )-C(M l+NCJl )) 
P4=4*D RF(Mir(C(MUl+l))/DR(Jl)/DR(Jl) 
P5=-(-P(MlJl))/DELT 
F(M 1 >=-C(M 1 . J 1 )+A2*(Pl +P2+P3+P4+P5) 

TOT G=T0T_C+C(M1J1) 

END DO 

F(NCHS(L5JJ1VT0T_C*R1*S(LUJ1)VR1/S(LUJ1)- 
. C(NCJ1) 
c comp molar adsorption 
D0MU1.NC 

A2=U(K_F(M 1 r AINT+1 ./DELT) 
v_ F(M 1 +NC>=-C(M 1+NC J 1 )+A2* (K_F(M 1 )* AINT*(Q{M 1JJ1 )>+ 


E-19 



P(M 1 +NC4 1 VDELT) 

END DO 

c comp s for the grd at wall 

ELSE IF(J1£Q.NJR) THEN 
TOT.OO. 
c camp molar density 
DOM1-1.NC-1 

A2* 1 V(2*D_L(M 1 VDELZ**2+S (L4441 )/DELZ+2*D RF(M1)/DR(J1) 
/DR(J1 HI VDELT) 

P1*D_L(M1)/DELZ**2*(S(MU-U1>+S(MU+U1)) 

P2=-S(U4Jl)/(DELZ)*(-S(MU-l t Jl)) 

P3-ALF1 (J1 )*AINT*K_F(M1)*(Q(MUJ1>-C(M1+NCJ1)) 
P4-D_RF(M1)*RP(J1 )»(C(M Ml -1 )-C(MlJl -1))/(2*DR(J1)) 
P5=2*D_RF(Mir(C(MUl-l))/DR(JlVDR(Jl) 

P6H-P(M1J1))/DELT 

F(MlKC(Ml,JlKA2*(Pl-t-P2+P3+P4+P5+P6) 

TOT_OTOT_C-fC(MUl) 

END DO 

F(NO(S(L5JJ1)-TOT_C*R1*S(LUJ1)VR1/S(LUJ1)- 

C(NCJ1) 

c comp molar adsorption 
DOM1-1.NC 

A2* 1 V(K_F(M 1 )• AINT+1 VDELT) 

F(M1+NCV-C(M1+NCJ1>+A2*(K_F(M1)*AINT*(Q(MUJ1)H 
P(M1+NCJ1 VDELT) 

END DO 

c this section computes s for grids of constant size 
ELSE 

IF(J1.NEIR)THEN 

TOT_C-0. 

c comp the molar density 
DOM1-1.NC-1 

A2»U(2*D_L(M1)/DELZ— 2+S(UJJl)/DELZ+2.*D_RF(MlV 
DR(J1 )/DR(Jl H 1 VDELT) 

P1»D.L<M1)/DELZ**2*(S(MU-U1>+S(MU+U1)) 

P2*-S(L4441 V(DELZ)*(-S(M1 4-141 )) 

P3-ALFl(JirAINT*K F(Mir(Q(MUJl)-C(Ml+NCJl)) 
P4«D_RF(M 1)*RP(J1 )*(C(M 1.J1 +1 )-C(M 1 J1 - 1)V(2*DR(J1 )) 
P5-D_RF(M 1)* (C(M1J1+1 )+C(M U1 -1)VDR(J1 VDR(J1) 
P6=-(-P(M141))/DELT 

F(M1)=-C(M 1 4 1 HA2* (P 1 +P2+P3+P4+P5+P6) 

TOT_C=TOT_C+C(M 141) 

END DO 

F(NCMS(LS441>-T0T_C*R1*S(L1441))/R1/S(L1441>- 

C(NCJ1) 

c comp the molar adsorption 
DOM1-1.NC 

A2-U(K_F(M 1 r AINT+1VDELT) 

F(M1+NCV-C(M1+NCJ1>+-A2»(K F(M1)*AINT*(Q(M1441)H 
P(M1+NCJ1)/DELT) 

END DO 

c this section computes s for variale grid size 
ELSE 
TOT_C-0. 
c comp molar density 
DOM1-1.NC-1 

A2=l V(2*D_L(M1 VDELZ«*2+S(U JJiyDELZ+Fl 1(J1 )*D_RF(M1)* 
RP(J1VDR(J1 >+2*D_RF(Ml )*F12(J1 VDR(J1)/DR(J1 HI VDELT) 
P1*=D_L(M1VDELZ**2*(S(M14+141HS(M14-141)) 
P2=-S(L4J.J1)/(DELZ) , (-S(M1J-1.J1)) 

P3-ALF1 (J1 )* AINT*K_F(M1 )*(Q(M1 441 )-C(M 1+NC Jl)) 

P4=D RF(M1)*RP(J1)*(F21(J1)*C(M141+1)-F01(J1)» 

. C(M 141-1 ))/(DR(J 1 )) 

P5=2*D RF(Mir(F22(JirC(Ml4l+lHF02(JirC(M14l-l)) 
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/DR(J1VDR(J1) 

P6=-(-P( M 1 J 1 ))/DELT 

F(M 1 >=-C(M 1 . J1 >t-A2*(P 1+P2+P3+P4+P5+P6) 

TOT C=TOT_C+C(M 1.J1 ) 

END DO 

F(NC>=(S(L5JJ1>-T0T_C*R1»S(LUJ1))/R1/S(LUJ1)- 

C(NCJ1) 

c comp molar adsorption 
DOMl*l»NC 

A2=1V(K_F(M 1 r AINT+1 ,/DELT) 

F(M1+NC>=-C(M1+NC J 1 KA2»(K_F(M 1 )• AINT»(Q(M1 JJ1 ))+ 
P(M 1 +NCJ 1 yDELT) 

END DO 
END IF 
END IF 
END IF 

C FOR TEMPERATURE 

C 

ELSE 

c set the parameters to new variables 
H FW=H W(J,NJR) 

RO F=S(L5J5,J1)/(C(1 J1)*R1) 

CP_F=CP P(J,J1) 

H FS=H FP(JJl) 

CON L=CON_Z(JJl) 

CON_RF=CON R(JJ1) 

CON P=CON_S(JJl) 

VISC_F=VISC_P(JJ1) 

J=JJ 

KK-0 

IFfJ.EQ.l )THEN 
IF(J1.EQ.1)THEN 
c computation of gas temperature 

IF(I SOL FLO .EQ.1)THEN 

A2=U(2*CON_L/DELZ**2+RO_F*CP_F*(S(L4JJl)/DELZ+ 

1 7DELT)+4*CON RF/DR(J1)/DR(J1)) 

Pl=CON L/DELZ"*2*(BC_L1+S(LU+1J1)) 

Pfc-RO F*CP F*S(L4JJ1)/(DELZ)*(-BC_L1) 
P3=-(1-EPS(J1)VEPS(J1)*H_FS*AINT»(C(U1)-C(2J1)) 
P4=-RO_F*CP_F*C(l J 1 )*(S(L4,J+ 1.J1 )- 
S(L4JjT))/(DELZ) 

P5=4*CON RF*(C(U1+1))/DR(J1)/DR(J1) 

P6=-RO_F*CP_F* (-P( 1 J1 ))/DELT 
F(1 >=-C(l.Jl )+A2*(Pl+P2+P3+P4+P5+P6) 
c computation of solid temperature 

A2=lV(2*CON_P/DELZ**2+{RO_S*CP_S)/DELT+ 

4*CON P/DR(fl)/DR(Jl)) 

Pl-AINT-H FS* (C(l J 1 >-C(2J 1 )) 

P2=-RATE Hl(JJl) 

P3-CON P»(S(L2J+U1>+S(L2J+U1))/DELZ/DELZ 
P4=4*CON P*(C(2J1+1))/DR(J1)/DR(J1) 

P5=-RO S*CP S*(-P(2J1))/DELT 
F(2>=-C(2J1 >+A2 * (P 1 +P2+P3 +P4+P5 ) 
c computation of effective temperature 
ELSE 

A2= 1 V(EPS( J 1 )• (2 , CON_L/DELZ**2+RO_F»CP_F*S(L4J J 1 )/ 
DELZ>+{EPS(Jl)*RO F*CP_F+(l-EPS(Jl))*RO_S*CP_S)/DELT+4« 
EPS(Jl)*CON RF/DR(J 1 )/DR( J 1 )) 
Pl=EPS(Jl)*CON_UDELZ«2-fBC_Ll+SCLU+Ul)) 

P2=-EPS(J 1 )* RO_F*CP_F*S (L4, J, J1 )/(DELZ)* (-BC _L1 ) 
P3=-(1-EPS(J1))*RATE_H1(JJ1) 

P4=-EPS(J1 )*RO_F*CP_F»C( 1J 1)*(S(L4 J+l J1 )- 
. S(L4 J J 1 ))/(DELZ) 

P5=EPS(Jl)*4*CON_RF*(C(lJl-rl))/DR(Jl)/DR(Jl) 
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P6=-<EPS(J1 )*RO_F*CP_F+< 1 -EPS(J 1 ))*RO_S*CP_S)* 
(-P(1J1))/DELT 

F(l^-C(l,Jl)+A2*(Pl-fP2+P3+P4+P5+P6) 

F(2H). 

END IF 

c the same computation as above except it is now for the grid at the wall 
ELSE IF(J1.EQ.NJR)THEN 
c comp of gas phase temperature 

IF(I_SOL_FLQ .EQ.iyTHEN 

A2*l 7(2*CON_L/DELZ**2+RO_F*CP_F*S(L4JJl )/DELZ+ 
(RO_F*CP_F)/DELT +2*CON_RF/DR(J 1 VDR(J 1 )) 
Pl»CON_L/DEL2**2*(BC_Ll+S(LlJ+lJl)) 

P2=-RO_F* CP_F* S (L4J J 1 )/(DELZ)* (-B C_L 1 ) 
P3*-<l-EPS(Jl)yEPS(Jl)*H_FS*AINT*(C(lJl)-C(2Jl)) 
P4=-RO_F*CP F»C(lJir(S(UJ+Ul)- 
S(L4 J J 1 ))/(DELZ) 

P5*CXDN_RF»RP(J 1 )* (2. *H_FW*DR( J 1 VCON RF*(C(3,J1)- 
C(Ul)>y(2*DR(Jl)) 

P6-CON_RF*(2*C( U1 - 1 >+2*H_FW*DR( J1 yCON_RF*(C(3Jl )- 
C(Ul))VDR(JiyDR(Jl) 

P7«-RO_F*CP_F*(-P(Ul))/DELT 
F(1 >=-C(Ul)+A2*(Pl+P2+P3+P4+P5+P6+P7) 
c comp of solid phase temperature 

A2= 1 7(2*CON_P/DELZ* *2+(RO_S *CP_S )/DELT+2*CON_P/DR(1 1 ) 
/DR(J1)) 

P1-AINT*H_FS*(C(1 J1 >C(2J1 )) 

P2*-RATE_H1(JJ1) 

P3»CON_P*(S(L2J+lJl>+S(L2J+lJl)yDELZ/DELZ 
P4*C0N_P*RP(J1)*(C(2J1-1)-C(2J1-1))/(2*DR(J1)) 
P5*C0N_P*(2*C(2J1-1))/DR(J1)/DR(J1) 
P6=-RO_S*CP_S*(-P(2Jl))/DELT 
F(2^-C(ZJ1 )-t-A2 • (P 1 +P2+P3+P4+PS+P6) 
c comp of effective temperature 
ELSE 

A2=U(EPS(Jl)*(2*CON_UDELZ**2+RO_F*CP F*S(L4JJ1)/ 
DELZ>+<EPS(Jl)*RO_F*CP F+<l-EPS(Jl))*RO S*CP SJ/DELT+ 
2.*EPS(J1 )*CON_RF/DR(J 1 yDR(J 1 )) 

P1-EPS(J1 )*CON_L/DELZ**2*(BC_Ll+S(Ll.J+Ul )) 

P2=-EPS(J 1 )*RO_F*CP_F*S(L4J,Jl )/(DELZ)*(-BC LI ) 
P3=-<1-EPS(J1))*RATE_H1(JJ1) 

P4*-EPS(J 1 )*RO_F*CP_F*C( 1J1 )*(S(L4 J+l J1 > 

S(L4 J J 1 ))/(DELZ) 

P5=EPS(J1 )*CON_RF*RP(Jl )*(2.*H_FW*DR(J1 yCON RF*(C(3J1>- 
C(1 J1 )))/(2*DR(J 1 )) 

P6=EPS(Jl)*CON_RF*(2*C(Ul-l)+2*H FW*DR(Jiy 
CON_RF*(C(3Jl>-C(Ul))yDR(JiyDR(Jl) 

P7*-(EPS(Jl)*RO F*CP_F-K 1 -EPS(J 1 ))*RO S*CP S)* 
(-P(Ul)VDELT 

F(1 >=-C( U1 )+A2*(Pl+P2+P3+P4+P5+P6+P7) 

F(2H). 

END IF 

F(3>=-C(3J1>+DELT/R0 WA/CP WA*(A_C*H_FW*(C(1J1>- 
. C(3Jl))-A_INS*H_OW*(C(3Jl>TO))-{-P(341)) 

ELSE 

c to the pent where the velocity start to change 
IF(J1.NEJR)THEN 
c compute gas temperature 

IF(I_SOL_FLO EQ.iyTHEN 

A2*l 7(2*CON_L/DELZ**2+RO F*CP P*S(U.J.J1)/DELZ+ 
(RO_PCP_F)/DELT+2*CON_RF/DR(JiyDR(Jl )) 
P1=C0N_L/DELZ**2*(BC_L1+S(L1J+1 Jl)) 
P2=-RO_F*CP_F*S(L4,J J 1 )/(DELZ)* (-BC Ll) 
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P3=-< 1 -EPS( J 1 ))/EPS(Jl ) *H_FS ’ AINT* (C( 1J 1 )-C(2J 1 )) 
P4=-R0_F*CP F*C(U1)*(S(U.J+U1)- 
S(U JJ1))/(DELZ) 

P5=C0N_RF* RP(J1 )* (C( 1 J 1 + 1 )-C( 1 J 1 - 1 ))/(2*DR(Jl )) 
P6=C0N_RF*(C(1J1+1>+C(1,J1-1))/DR(J1VDR(J1) 
P7=-R0_F*CP_F*(-P(U1))/DELT 
F(1 ^-C( 1 , J1 )+A2 *(P 1 +P2+P3+P4+P5+P6+P7) 
c compute solid temperature 

A2=W(2*CON_P/DELZ**2+RO S*CP_S/DELT+2»CON_P/ 
DR(J1VDR(J1)) 

P1=AINT*H_FS*(C(1 J1>-C(2J1)) 

P2»-RATE_H1(JJ1) 

P3=C0N P*(S(L2J+1J1>+S(L2J+U1)VDELZ/DELZ 
P4=C0N P*RP(J1)*(C(2J1+1)-C(2J1-1))/(2*DR(J1)) 
P3=CON_P*(C(2J 1 +1 >+C(Z J1 - 1 )VDR(J 1 VDR(J 1 ) 
P6=-R0_S*CP_S*(-P(2J1 ))/DELT 
F(2)=-C(2J 1 >+A2* (P 1 +P2+P3+P4+P5+P6) 
c compute effective temperature 
ELSE 

A2= 1 V(EPS(Jl)*(2*CON L/DELZ**2+RO_F*CP_F*S(L4 J J1 )/ 
DELZMEPS(Jl)*RO_F*CP_F+(l -EPS(Jl))*RO_S*CP_S)/DELT+2* 
EPS(Jl)*CON RF/DR(J1)/DR(J1)) 
Pl=EPS(Jl)*CON_L/DELZ**2*(BC_Ll+S(Ll,J+l,Jl)) 
P2=-EPS(Jl)*RO F*CP_F*S(L4,J,J1)/(DELZ)*(-BC_L1) 
P3=-(1-EPS(J1)>*RATE_H1(JJ1) 

P4«-EPS(J 1 )*RO_F*CP_F*C( 1 J1)*(S(L4 J+1J1)-S(L4 JJ1))/ 
(DELZ) 

P5=EPS(J1)*C0N_RF*RP(J1)*(C(1.J1+1)-C(U1-1)V(2*DR(J1)) 
P6=EPS(Jl)*CON_RF*(C(lJl+l>+C(lJl-l))/DR(Jl)yDR(Jl) 
P7=-<EPS(J1 )*R0 F*CP_F+< 1 -EPS(J1 ))*RO_S*CP_S)» 
(-P(1J1))/DELT 

F( 1 >*-C( 1 J 1 )-t-A2*(P 1 +P2+P3+P4+PS+P6+P7) 

F(2)=0. 

END IF 

c the same computation as above except it is now for the grids from the point 
c where the velocity starts to change to the wall 
ELSE 

c compute the gas temperature 

EF(I_SOL FLO .EQ.1)THEN 

A2= 1 y(2*CON_L/DELZ* *2+RO_F*CP_F*(S(L4 J J1 VDELZ+ 
lJDELTXZON RF*RP(Jl)*Fll(Jl)/DR(Jl)+2*CON_RF*F12(Jl)/ 
DR(J1VDR(J1)) 

PI =CON_L/DELZ**2*(S(Ll ,J+1 J1 )+BC_Ll ) 

P2=-RO F*CP_F*S(L4JJ1)/(DELZ)*(-BC_L1) 

P3=-( 1 -EPS(J 1 )VEPS(J1 )*H_FS * AINT*(C( 1 J1 )-C(2J 1 )) 

P4=-R0 F*CP_F*C(1 J1 )*(S(L4,J+1,J1 )- 
S(L4JJ1))/(DELZ) 

P5=C0N_RF*RP(J1)*(F21(J1)*C(1J1+1)- 
F01 (J1 )*C( 1 J1 - 1 )V(DR( J 1 )) 

P6=2*CON RF*(F22<J1)*C(1J1+1>+F02(J1)*C(1J1-1))/ 
DR(J1)/DR(J1) 

P7-RO_F*CP_F*(-P(Ul))/DELT 
F(1 >=-C(lJl >+A2*(Pl+P2+P3+P4+P5+P6+P7) 
c compute the solid temperature 

A2=17(2*CON_P/DELZ**2+RO_S*CP_S/DELT+CON_P*RP(Jl)* 
FI KJD/DRCJl )+2*CON_P*Fl 2(J1 )/DR(J 1 VDR(Jl)) 

Pl= MNT»H_FS*(C(U1 )-C(U \ )) 

P2=-RATE Hl(IJl) 

P3=CON : DELZ/DELZ*(S(L2J-rlJl>tS(LiJ+l,Jl)) 

P4=CON~i KP(J 1 )* (F2 1 (J 1 )* C(2, J i -r 1 )-F01 (J1 )* 
C(2J1-1))/(DR(J1)) 

P5=2* CON_P* (F22(J ^FC2(1 1 )*C(2 Jl - ! )) ' 

DR(J1)/DR(J1) 
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P6=-R0_S*CP_S*(-P(2J1))/DELT 
F(2>=-C(2.J1 )+A2*(P 1 +P2+P3+P4+P5+P6) 

ELSE 

c compute the effective temp era ture 

A2»17(EPS(J1)*(2*C0N_UDELZ**2+R0_F*CP_F*S(L4JJ1)/ 
DELZMEPS(Jl)*RO_F*CP_F+(l-EPS(Jl))*RO_S*CP_S)/DELT+ 
EPS(Jl)*CON_RF*(RP(Jl)*Fl 1(J1)/DR(J1>+2*F12(J1)/ 
DR(J1)/DR(J1))) 

P1«EPS(J1)*C0N_UDELZ**2*(S(L1J+1J1>+BC_L1) 

P2*-EPS(J1 )*RO_F*CP_F*S(L4,J,Jl )/(DELZ)*(-BC_Ll ) 

P3— <1-EPS(J1))*RATE_H1(JJ1) 

P4»-EPS(Jl)*RO_F*CP_F*C(lJl)*(S(L4J+lJl >* 
S(L4JJ1))/(DELZ) 

PS-EPS(Jl)*CON_RF*RP(Jl)*(F21(JirC(Ul+l)-F01(Jir 

C(lJl-l)y(DR(Jl)) 

P6*2*EPS(J1)*C0N_RF*(F22(J1 )»C(U1+1 >+F02(Jl)* 
C(1J1-1)VDR(J1)/DR(J1) 

P7=-(EPS(J1 )*RO_F*CP_F+( 1 -EPS(J1))*R0 S*CP_S)* 
(-P(1J1))/DELT 

F(1)-C(U1 KA2*(P1+P2+P3+P4+P5+P6+P7) 

F(2H). 

END IF 
END IF 
END IF 
C 

C 

C this section compute the S matrix variables for grid at z*L, the outflow 
c bo undry 


ELSE IF(J.EQ .NJUTHEN 
IF(J 1.EQ.1 JTHEN 
c compute the gas temperature 

IF(I_SOL_FLO .EQ.1JTHEN 

A2»l 7(2*CON_L/DELZ**2+RO_F*CP F»S(UJJ1)/DELZ+ 
(RO_F»CP_F)/DELT+4*CON RF/DR(J 1 yDR(J 1 )) 
Pl*CON_L/DELZ**2*(2*S(Ll J-1J1 )) 
P2a*-RO_F"CP_F*S(L4JJl)/(DELZ)*(-S(LU-lJl)) 

P3=-( 1 -EPS(J 1 )VEPS(J1 )*H_FS* AINT*(C( I J1 )-C(2Jl )) 
P4=-R0_F*CP_F*C(1J1)*(S(L4J-1J1)- 
S(L4J-1J1))/(2*DELZ) 
P5=4*C0N_RF*(C(U1+1))/DR(J1)/DR(J1) 
P6=-R0_F*CP_F*(-P(1J1))/DELT 
F(1>=-C(U1 KA2*(P1+P2+P3+P4+PS+P6) 
c compute the solid tempenutre 

A2»U(2*CON_P/DELZ**2+RO S*CP S/DELT+4*CON P/ 
DR(J1VDR(J1» 

P1*AINT*H_FS*(C(U1 >-C(2Jl)) 

P2=-RATE_H1(JJ1) 

P3-CON_P*(S(L2J-lJl)+SfL2.J-Ul))/DELZ/DELZ 
P4=4*CON_P*C(2J 1 +1 )/DR( J 1 )/DR(J 1 ) 

PS— RO_S*CP_S*(-P(2Jl))/DELT 
F(2>=-C(2J1HA2*(P1+P2+P3+P4+P5) 

ELSE 

c compute the effective temperature 

A2»U(EPS(Jl)*(2*CON_UDELZ**2+RO F*CP F»S(UJJ1)/ 
DELZ>KEPS(Jl)*RO_F"CP_F+(l-EPS(Jl))*RO S»CP_S)/DELT+ 
4*EPS(J 1 )*CON_RF/DR(Jl)/DR(Jl )) 
P1«EPS(J1)»C0N_UDELZ**2*(2»S(LU-1J1)) 

P 2 =-EPS(J 1 r RO_F»CP_F*S(U,JJl )/(DELZ)*(-S(Ll J- 1 J 1 )) 

P3— (1-EPS(J1))*RATE_H1(JJ1) 

P4— EPS(J1 )*RO_F*CP_F*C(l J1 )*(S(UJ-1.J1 )- 
S(L4 J-U1))/(2*DELZ) 
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P5=4*EPS(J1)*C0N_RF*(C(1J1+1 ))/DR(Jl )/DR(Jl ) 
P6=-<EPS(Jl)*RO_F*CP_F-Kl-EPS(Jl))*RO S*CP S)* 

(-P(l J1))/DELT 

F(1>=-C(1.J1>+A2*(P1+P2+P3+P4+P5+P6) 

F(2>=0. 

END IF 

c this section is for r at the wall 

ELSE IF(Jl.EQHTR) THEN 
c compute gas temperature 

IFa SOL.FLO ,EQ.1)THEN 

A2= 1 7(2*CON_L/DELZ**2+RO_F*CP_F*S(L4 J J1 )/DELZ+{RO_F* 
CP_F)/DELT+2*CON RF/DR(J1)/DR(J1)) 

Pl*CON_L/DELZ**2* (2*S(L1 J- 1 J1 )) 

P2=-R0_F*CP_F*S(L4JJ1)/(DELZ)*(-S(LU-U1)) 

P3«=-<1-EPS(J1))/EPS(J1)*H_FS*AINT*(C(1J1)-C(2J1)) 

P4=-RO F*CP F»C(Uir(S(U,J-Ul)-S(U,J-lJl)y 
(2*DELZ) 

P3=CON RF*RP(J1)*(2.*H_FW*DR(J1)/C0N_RF*(C(3,J1)- 
C(U1))V(2»DR(J1)) 

P6=CON RF*(2*C( U1 - 1>+2*H_FW*DR(J1 )/CON_RF*(C(3,Jl )- 
C(Ul))yDR(JiyDR(Jl) 

P7=-RO_F*CP_F*(-P(lJl))/DELT 
F(1 )=-C(i,Jl )+A2*(Pl+P2+P3+P4+P5+P6+P7) 
c compute solid temperature 

A2=U(2*CON P/DELZ**2+RO S*CP S/DELT+2*C0N_P/DR(J1V 
DR(J1)) 

P1=AINT*H FS*(C(1J1)-C(2J1)) 

P2=-RATE Hl(JJl) 

P3=CON P*(S(L 2 J-lJl>+S(L 2 ,J-l,Jl)yDELZ/DELZ 
P4=CON P* RP(J 1 )• (C (2J 1 - 1 )-C(2J 1 - 1 ))/(2*DR( J1 )) 
P5=CON_P*(2*C(ZJl -l))/DR(JiyDR(Jl) 

P6=-RO S*CP S*(-P(2J1))/DELT 
F(2)=-C(2J1 HA2»(P1+P2+P3+P4+P5+P6) 

ELSE 

c compute effective temperature 

A2= 1 y(EPS( J 1 )*(2*CON_L/DELZ**2+RO_F*CP_F*S(L4JJl )/ 
DELZMEPS(Jl)*RO F*CP_F+<1 -EPS(J 1 ))*RO_S*CP_S )/DELT+ 
2*EPS(Jl)*CON RF/5R(J1)/DR(J1)> 
P1=EPS(J1)*C0N_L/DELZ**2*(2*S(L1,J-1J1)) 
P2s-EPS(Jl)*RO_F*CP_F*S(L4.J.Jl)/(DELZ)*(-S(LlJ-lJl)) 
P3=-(1-EPS(J1))*RATE_H1(JJ1) 

P4=-EPS(Jl)*RO_F*CP F*C(1J1)*(S(L4J-1,J1)- 
S(L4J-U1))/(2*DELZ) 

P5=EPS(Jl)»CON RF*RP(J1)*(2. , H FW*DR(J1)/C0N_RF*(C(3J1> 
C(1 J 1 ))V(2*DR( J 1 )) 

P6=EPS(Jl)*CON_RF*(2*C(lJl-lK2*H_FW*DR(JiyCON_RF* 

(C(3J1)-C(U1)))/DR(J1)/DR(J1) 

P7»-(EPS(Jl)*RO F*CP_F+< 1 -EPS(J1 ))*RO_S*CP_S)* 
(-P(1J1))/DELT 

F(1)=-C(U1)+A2*(P1+P2+P3+P4+P5+P6+P7) 

F(2>=0. 

END IF 

c compute the wall temperature 

F(3)=-C(3J1 )+DELT/RO_WA/CP_WA*(A_C*H_FW*(C(lJl)- 
C(3J1))-A INS *H_OW*(C(3 J 1 )-TO)H-P(3,Jl )) 

ELSE 

c this section computes S matrix for those grids with constant grid siz 
ff(JlJVEJR)THEN 
c compute gas temperature 

IF(1_SOL_FLO ,EQ.1)THEN 

A2=U(2«CON_UDELZ**2+RO_F*CP_F»S(U J J1 )/DELZ+ 

(RO F*CP_F)/DELT+2*CON_RF/DR(Jl yDR(Jl )) 
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P1*C0N_L/DELZ**2*(2*S(L1J-1J1)) 

P2»-R0_F*CP_F*S(L4JJ1)/(DELZ)*(-S(L1J*1J1)) 

P3»-{ 1 -EPS(J1))/EPS(J1 )*H_FS * AINT*(C( 1J1 )-C(2J 1 )) 

P4— R0_F*CP_F»C(1J1 )*(S(U.J-1 J1 y 
S(L4 J-l J 1 ))/(2*DELZ) 

P5«C0N_RF*RP(J1)*(C(1J1+1)-C(1J1-1))/(2*DR(J1)) 

P6-C0N_RP*(C(lJl+l>+C(l.Jl-l)yDR(JiyDR(Jl) 

P7=-R0_F*CP F»(-P(U1))/DELT 
F(l>uC(Ul)+A2*(Pl+P2+P3+P4+P5+P6+P7) 
c compute solid temperature 

A2»lV(2*CON_P/DELZ**2+RO S*CP S/DELT+2*C0N P/ 
DR(J1)/DR(J1)) 

P1*AINT*H_FS , (C(1J1)-C(2J1)) 

P2~RATE_H1(JJ1) 

P3-CON_P*(S(L2J-lJlKSCLU-Ul)yDELZ/DELZ 
P4-CON_P*RP(Jir(C(2Jl+l)-C(241-l))/(2*DR(Jl)) 
P5-C0N_P*(C(2J1+1>+C(2J1 - l)yDR(JiyDR(Jl) 

P6— R0_S*CP_S*(-P(2J1))/DELT 
F(2)~C(2J1 >+A2*(Pl+P2+P3-t-P4-*-P5+P6) 

ELSE 

c compute effective tempenture 

A2=U(EPS(J1 )*(2*CON_L/DELZ**2+RO F*CP F*S(UJJ1)/ 
DELZMEPS(JirRO F*CP_F+<l-EPS(Jl))*RO S*CP S)/DELT+2* 
EPS( J 1 )*CON_RF/DR( J 1 )/DR( J 1 ) ) 
P1-EPS(J1)*C0N_L/DELZ**2*(2*S(L1J-1J1)) 
P2»-EPS(Jl)*RO_F , CP_F*S(L4JJlV(DELZ) , (-S(LlJ-lJl)) 
P3*-(1-EPS(I1))*RATE_H1(JJ1) 
P4«-EPS(Jl)*RO_F*CP_F*C(lJl)*(S(L4J-l r Jl)- 
S(L4J-1J1))/(2*DELZ) 

P5*EPS(J1 ) •CON_RF* RP(J 1 )*(C(U 1+1 )-C(lJl -l)y(2*DR(Jl)) 
P6«EPS(J1 )*CON_RF*(C( 1J1+1 >+C(lJl -1 )VDR(J1 )/DR(Jl ) 
P7=-(EPS(J1 )*RO_F*CP F+(l-EPS(Jl))*RO S*CP_S)* 
(-P(Ul)VDELT 

F( 1 HC( U1 >+A2*(Pl +P2+P3+P4+PS+P6+P7) 

F(2H). 

END IF 

c this section compute s for variable grid size 
ELSE 

c compute the gas temperature 

IF(I_SOL_FLO.EQ. 1 )THEN 

A2= 1 V(2*CON_L/DELZ**2+RO_F*CP F*(S(UJJ1)/DELZ+ 

1 7DELT>+CON_RF* RP( J 1 )*F11(J1)/DR(J1 >+2*CON_RF» 

F12(J1 )/DR(Jl VDR(J 1 )) 

Pl*CON_L/DEL2**2*(2*S(LlJ-lJl)) 

P2=-R0_F*CP_F*S(L4JJ1)/(DELZ)*(-S(L1J-1J1)) 

P3-<1-EPS(J1)VEPS(J1)*H_FS*AINT»(C(U1)-C(2J1)) 

P4— Ro_F*cp_F*c(uir(S(u,j-ui)-s(i>u-ui)y 
(2*DELZ) 

P5-CON_RF*RPai)*(F21(JirC(Ul+l)-F01(JirC(Ul-l)y 

(DR(J1)) 

P6=2*CON_RF*(F22(Jl)*C(Ul+l>+F02(Jl)*C(lJl-l)yDR(Jl) 

/DR(J1) 

P7— RO F*CP_F*(-P(1 J 1 )VDELT 
F(1V-C(U1HA2*(P1+P2+P3+P4+P5+P6+P7) 
c compute the solid tempenture 

A2= 1 i(2 •CON_P/DELZ* *2+RO_S * CP_S/DELT +CON P*RP(J1)» 

Fll(Jl)/DR(JlH2*CON_P*Fl2(JiyDR(JiyDR(Jl)) 

P1=AINT*H_FS*(C(1J1)-C(2J1)) 

P2*-RATE_H1 (JJ1) 

P3-CON P/DELZ/DELZ*(S(L2J-lJl>t-SfL2J-lJl)) 

P4*CON P*RP(Jir(F21(Jl)*C(2Jl+l)-F01(JirC(2Jl-l)) 

. /(DR(J1)) 

P5=2*CON P*(F22(J1)*C(2J1+1)+F02(J1)*C(2J1-1))/ 
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DR(J1)/DR(J1) 

P6=-RO_S*CP_S*(-P(2 J 1 ))/DELT 
F(2>=-C(2,J1 )+A2*(Pl+P2+P3+P4+PS+P6) 

ELSE 

c compute the effective temperature 

A2=17(EPS(J1)*(2*C0N_L/DELZ**2+R0_F*CP_F*S(L4JJ1 )/ 
DELZVKEPS(Jl)*RO_F*CP_F+(l-EPS(Jl))*RO_S*CP_S)/DELT+ 
EPS( J 1 )*CON_RF* (RP(J1 )* F 1 1(J1 VDR(J1>+2*F12(J1)/DR(J1 V 
. DR(J1))) 

Pl=EPS(Jl)*CON_L/DELZ**2*(2*S(Ll,J-l Jl)) 

P2=-EPS(J1)*R0_F*CP_F»S(W,JJ1)/(DELZ)*(-S(L1J-U1)) 

P3*-(1-EPS(J1))*RATE_H1(JJ1) 

P4=-EPS(J1)*R0_F*CP_F*C(1J1)*(S(L4J-U1)- 

S(UJ-1J1))/(2*DELZ) 

P5=EPS(J1 )*CON_RF*RP(Jl r (F21 (J1)*C(1 Jl+1 >F01 (Jl)* 
C(1J1-1)V(DR(J1)) 

P6=2*EPS(Jl)»CON_RF*(F22(JirC(l.Jl+l)+F02(Jir 

C(1J1-1)VDR(J1)/DR(J1) 

P7=-(EPS(J1 )*RO_F*CP_F-K 1 -EPS(J 1 ))*RO_S *CP_S)* 
(-P(1J1))/DELT 

F(1 )=-C( 1.J1 )+A2*(Pl+P2+P3+P4+PS+P6+P7) 

F(2)=0. 

END IF 
END IF 
END IF 


c this section computes the s matrix for grids inside of the column 

c 

ELSE 

F(J1.EQ.1)THEN 
c comp gas temperature 

FO SOL FLO-EQ.DTHEN 

A2=17(2*CON L/DELZ**2+RO_F*CP_F*S(L4,JJl)/DELZ+ 

(RO F*CP F)/DELT44*C0N_RF/DR(JiyDR(Jl)) 

Pl*CON L/DELZ**2*(S(LlJ-l,Jl>+S(Ll r J+lJl)) 

P2=-RO F"CP_F*S(L4JJ1)/(DELZ)*(-S(L1 J-1J1)) 
P3=-<1-EPS(J1)VEPS(J1)*H_FS*AINT*(C(1J1)-C(241)) 

P4=-RO F*CP_F*C(1J1)*(S(L4,J+1,J1)-S(L4J-1,J1))/ 

(2*DELZ) 

P5=4*CON RF*(C(1.J1+1))/DR(J1)/DR(J1) 

P6=-RO F»CP_F*(-P(U1))/DELT 
F(1 >=-C( U1 >+A2*(Pl +P2+P3+P4+P5+P6) 
c comp solid temperature 

A2=17(2*C0N_P/DELZ/DELZ+4*C0N_P/DR(J1)/DR(J1>+ 

RO S*CP_S/DELT) 

P1=AINT*H_FS*(C(1J1>-C(2J1)) 

P2=-RATE H1(JJ1) 

P3=CON l^(S(L2J-lJl>t-S(L2,J+lJl))/DELZ/DELZ 
P4-4*CON P*(C(2,J1+1))/DR(J1)/DR(J1) 

P5=-RO S*CP_S*(-P(2J 1 ))/DELT 
F(2>=-C(2,J 1 )+A2*(P 1 +P2+P3+P4+P5) 

ELSE 

c comp effective temperature 

A2=17(EPS(Jl)*(2*CON_L7DEL2**2+RO_F*CP_F*S(L4J41)/ 
DELZWEPS(Jl)*RO_F*CP F+(l -EPS(Jl))*RO_S*CP_S)/DELT+ 
. 4*EPS(J1 )*CON_RF/DR(Jl )/DR(Jl )) 

Pl=EPS(Jl)*CON L/DELZ**2*(S(L1J-1J1HS(L1.J+U1)) 
P2»-EPS(Jl)*RO F*CP F*S(L4,J,J1)/(DELZ)*(-S(L14-1J1)) 
P3=-<1-EPS(J1))»RATE_H1(JJ1) 
P4=-EPS(J1)*R0_F*CP_F*C(1J1)*(S(L4J+1J1>- 
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S(L4 J-l J 1 ))/(2*DELZ) 

P5*4*EPS(J 1 r C0N_RF*(C(1 J 1 +1 ))/DR(Jl )/DR(Jl ) 
P6*-(EPS(J1)*RO_F*CP_F+(1-EPS(J1))*RO S*CP S)» 
(-P(1J1))/DELT 

F(1)=-C(U1 KA2*(P1+P2+P3+P4+P5+P6) 

F(2>-0. 

END IF 

c comp s for the grd at wall 

ELSE IF(J1 .EQ.NJR) THEN 
c comp gas temperature 

IF(I_SOL_FLO£Q.l)THEN 

A2=l 7(2*CON_L/DELZ**2+RO_F*CP F*S(L4JJiyDELZ+ 

(RO_F*CP_FVDELT+2*CON_RF/DR(jiyDR(Jl)) 

Pl»CON_L/DELZ* # 2*(S(LlJ-lJl>+S(LlJ+lJl)) 

P2*-R0_F*CP_F*S(L4JJ1)/(DELZ)*(-S(L1J-1J1)) 

P3=-(1-EPS(J1)VEPS(J1 )*H_FS*AINT*(C(1J1>-C(2J1)) 

P4«-RO_F*CP_F*C(l J 1 )* (S(L4 J+ 1 Jl )- 

S(L4 J J 1 ))/(DELZ) 

P5-CON_RF*RP(Jir(l*H_FW*DR(JlVCON RF»(C(3J1>- 
C(1J1))V(2*DR(J1)) 

P6-CON_RF*(2*C( 1J1 -1 >+2*H_FW*DR(Jl )/CON RF*(C(3J1 ) 

-C(l J1)))/DR(J1 VDR(J1 ) 

P7=-R0_F*CP_F*(-P(1J1))/DELT 
F(1 >=-C(Ul )+A2*(Pl+P2+P3+P4+P5+P6+P7) 
c compute solid t empera ture 

A2= 1 i(2*CON_P/DELZ/DELZ+2*CON P/DR(J1)/DR(J1)+ 
RO_S*CP_S/DELT) 

P1«AINT*H_FS*(C(1J1)-C(2J1)) 

P2*-RATE_H1(JJ1) 

P3-CON_P»(S(L2J-lJl)+S(L2,J+Ul))/DELZ/DEL2 
P4«CX)N_P*RP(J1)*(C(2J1-1)-C(2J1-1))/(2*DR(J1)) 
P5«C0N_P*(2*C(2J1 - 1)VDR(J1 VDR(J1) 

P6»-R0_S*CP_S*(-P(2J1 ))/DELT 
F(2>=-C(2J1 )+A2*(P 1 +P2+P3+P4+P5+P6) 

ELSE 

c compute effective te mp o a ure 

A2-U(EPS(Jl)*(2*CON_L/DELZ**2+RO F»CP F*S(UJJ1)/ 
DELZ)+<EPS(J1 )*RO_F»CP_F+(l -EPS(J 1 ))*RO S*CP SVDELT+ 
EPS( J 1 )*2*CON_RF/DR( J 1 )/DR(Jl )) 
P1«EPS(J1)*C0N_UDELZ»»2*(S(L1J-1J1>+S(L1J+1J1)) 
P2=-EPS(J1)*R0_F , *CP_F*S(L4JJ1)/(DELZ)*(-S(L1J-1J1)) 
P3--(l-EPS(Jl)rRATE_Hl(JJl) 
P4«-EPS(J1)*R0_F*CP_F*C(1J1)*(S(UJ+1J1)- 
S(L4JJ1))/(DELZ) 

P5=EPS(J1 )*CON_RF*RP(Jl )*(2.*H_FW*DR(J1 )/CON RF»(C(3J1 V 
C(lJl))y(2*DR(Jl)) 

P6=EPS(Jl )*CON_RF*(2*C(lJl -1 )+2*H FW*DR(Jl)/CON RF* 
(C(3J1>C(1J1)))/DR(J1)/DR(J1) 

P7»-(EPS(J1 )*RO_F*CP_F+( 1 -EPS(Jl))*RO S*CP S)* 
(-P(U1))/DELT 

F(1 K-C( 1.J1 >+A2»(Pl +P2+P3+P4+PS+P6+P7) 

F(2H). 

ENDIF 

c compute wall temperature 

F(3)=-C(3 Jl >+DELT/RO_Wa;CP WA*(A C*H FW*(C(1J1> 

. CP Jl ))-A_INS*H_OW*(C(3J 1 }-TO)M-P(3Jl )) 

c this section computes s for grids of constant size 
ELSE 

IF(J lJJEJRyTHEN 
c comp gas temperature 

IF(I_SOL_FLO.EQ. 1 )THEN 

A2=U(2*C0N_L/DEL2**2+R0_F*CP_F*S(L4JJ1 )/DELZ+ 
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(R0_F*CP_F)/DELT+2*C0N_RF/DR(J1 VDR(J 1 )) 

P1=C0N_IVDELZ«»2»(S(LU-U1)+S(LU+U1)) 

P2=-RO_F*CP_F»S(UJJl)/(DELZ)*(-S(LU-Ul)) 

P3=-(1-EPS(J1))/EPS(J1)*H_FS*AINT*(C(U1)-C(2J1)) 

P4=-R0_F*CP_PC(1 J1)*(S(L4,J+1J1 )- 

S(UJ-U1))/(2*DELZ) 

P5=C0N_RF*RP(J 1 )*(C( 1 J 1 +1 )-C( 1 J 1 - 1 ))/(2*DR(Jl )) 
P6=CON_RF*(C(l J 1+1 )+C( l.Jl-l ))/DR(J 1 )/DR(J 1 ) 

P7=-R0 F*CP_F*(-P(1J1))/DELT 
F(1>=-C(U1)+A2*(P1+P2+P3+P4+P5+P6+P7) 
comp solid temperature 

A2=17(2*CON_P/DELZ/DELZ+2*CON_P/DR(J1)/DR(J1)+ 

RO S*CP_S/DELT) 

P1=AINT*H_FS*(C(U1>-C(2J1)) 

P2=-RATE_H 1(JJ 1) 

P3=C0N_P*(S(L2J-1J1HS(L2,J+U1))/DELZ/DELZ 

P4=C0N_P*RP(J1)*(C(2J1+1)-C(2J1-1))/(2*DR(J1)) 

P5=CON P*(C(2J1+1>+C(2,J1-1))/DR(J1)/DR(J1) 

P6=-RO S*CP_S*(-P(2J1))/DELT 
F(2>=-C(ZJ1 >+A2*(Pl+P2+P3+P4+P5+P6) 

ELSE 

compute effective temperature 

A2= 1 7(EPS(J 1 )* (2*CON L/DELZ**2+R0_F*CP_F*S(L4JJ1)/ 
DELZWEPS(J1 )*RO_F*CP_F+< 1 -EPS(J 1 ))*RO_S*CP_S)/DELT+ 
. 2*EPS(Jl)*CON RF/DR(J1)/DR(J1)) 

P1=EPS(J1)*C0N_UDELZ*»2*(S(LU-U1)+S(LU+LJ1)) 
P2=-EPS(JirRO P*CP_F*S(L4,J.J1)/(DELZ)*(-S(L1J-1J1)) 
P3=-fl-EPS(Jl))*RATE_Hl(JJl) 

P4=-EPS(J 1 )*RO_F*CP_F*C( 1 J 1 )*(S(L4 J+l J1 h 
S(L4J-1J1»/(2*DELZ) 

P5=EPS(J1 )*CON RF*RP(J1)*(C(1.J1+1K(U1-1M2*DR(J1)) 
P6=EPS(J1)*C0N_RF*(C(1J1+1)+C(1J1-1))/DR(J1)/DR(J1) 
P7=-fEPS(Jl )* RO_F*CP_F-K 1 -EPS(Jl))»RO_S*CP_' )* 
(-P(1J1))/DELT 

F(1>=-C(1.J1>+A2*(P1+P2+P3+P4+PS+P6+P7) 

F(2>=0. 

END IF 

this section computes s for variale grid size 
ELSE 

compute gas temperature 

IF(I SOL FLOiQ.l)THEN 

A2= 1 J(2*CON_L/DELZ**2+RO_F*CP_F*(S(L4JJl)/DELZ+ 

1 7DELT)+CON_RF*RP(Jl )*F1 1 (J1 )/DR(Jl >+2’CON_RF» 

. F12(J1)/DR(J1VDR(J1)) 

Pl=CON L/DELZ**2»(S(L1,J+U1HS(LU-1J1)) 

P2=-RO F*CP F*S(L4JJ1)/(DELZ)*(-S(LIJ-U1)) 

P3— (1-H > S(J1))/EPS(J1)*H_FS*AINT*(C(U1)-C(2J1)) 

P4=-R0_F*CP_P , C(1J1)*(S(L4J+1J1)- 

S(L4 J-l J 1 ))/(2*DELZ) 

P5*CON_RF*RP(J 1 )*(F21 (J 1 )*C( 1 ,J1+1 )-F01 ( J1 )* 

. C(U1-1)V(DR(J1)) 

P6=2*CON_RF*(F22<J1)*C(U1+1>+F02(J1)*C(U1-1))/ 

DR(J1)/DR(J1) 

P7=-RO_F*CP_F»(-P(Ul))/DELT 
F(1 y=-C(l,Jl >+A2»(Pl+P2+P3+P4+P5+P6+P7) 
compute solid temperature 

A2= 1 7(2*CON_P/DELZ/DELZ+CON_P*RP(Jl )*F1 1 (J1 )/DR(Jl )+ 
2*CON_P* F12(J1 )/DR(J 1 )/DR(J 1 >t-RO_S*CP_S/DELT) 
P1=AINT*H_FS*(C(1 J1 yC( 2J1)) 

P2=-RATE_H1(JJ1) 

P3=C0N P/DELZ/DELZ*(S(L2J-U1HS(L2J+U1)) 

P4=CON P*RP(J1)*('F21(J1)*C(2,J1+1>- 
F01(J1)*C(2J1-1)V(DR(J1)) 



non 


P5-2«CON_P*(F22(J1)*C(2J1+1)+F02(J1 ) 

*C(2J 1-1 ))/DR(Jl )/DR(J 1 ) 

P6--R0_S»CP_S«(-P(2J1 ))/DELT 
F(2)=-C(2,Jl>t-A2*(Pl+P2+P3+P4+P5+P6) 

ELSE 

c compute effective temperature 

A2= 1 7(EPS(J 1 )*(2*CON_L/DELZ**2+RO_F*CP_F*S(L4 JJ1)/ 
DELZWEPS(J1 )*RO_F*CP_F+( 1 -EPS(J1 ))*RO_S*CP_S)/DELT+ 
EPS(J1 )*CON_RF*(RP(Jl )*F1 1 (J 1 VDR(J1 )+2*F12(Jl V 
DR(J1VDR(J1))) 

P1»EPS(J1 )»CON_L/DELZ»*2*(S(Ll J+1J1 >+S(LU-Ul )) 

P2»-EPS(Jl)*RO_F*CP_F"S(L4 r I41)/(DELZ)*(-S(LU-lJl)) 

P3»-(1-EPS(J1))*RATE_H1(JJ1) 

P4*-EPS(J1)*R0_F*CP_F*C(1J1)*(S(L4J+1J1>- 

S(L4 J-l J1 ))/(2*DELZ) 

P5«EPS(Jl)*CON_RF*RP(Jir(F21(JirC(lJl+l)-F01(Jir 

C(U1-1)V(DR(J1)) 

P6«2*EPS(J1 )*C0N_RF»(F22(J1 )-C(lJl+l)+F02(Jl )• 
C(lJl-l)VDR(JiyDR(Jl) 

P7»-(EPS(Jl)*RO_F*CP_F+<l-EPS(Jl))*RO S*CP S)* 
(-P(1J1))/DELT 

F(1>»-C(1,J1 >+A2*(Pl+P2+P3+P4+PS+P6+P7) 

F(2>=0. 

END IF 
END IF 
END IF 
END IF 
END IF 
RETURN 
END 


SUBROUTINE FUNCTl(Jl) 

IMPUCIT REAL*8(A-H.O-Z) 

REAL*8 K_F(4).K_FCK4yMOL(4).M_AVE>!_W(4)jnj NP.NU NWJCGAS, 

. K_FP(42201.201 )3C_1(4),D_L(4),Q2(4).MW.A1 ( 14,201 ), 

. Cl(144Ol,lOl),D_RF(4),U(144Ol)^PS(lOOO)E(3O)4tKT0O), 

. C2(14,201.101),F01(101).F1 1(101 ),F21(101),F02(101), 

. F12(101)J22(101)JIP(101)J3R(101)JIRO(101)J)_LP R(4.201,101). 

• D_LP_Z(4.20U01).U1(101.201).YO(4),SS(4) 

COMMON/UG/U.GUESS.EPS 

CX)MMON/OLD/AA(14),SUM(14).COLD(14.20U01) 

COMMON/BND/A(14.14XB(14,14),C(14.201),D(14.29XX(14,14), 

. Y(14,14),G(14).F(14yP(14.201) 

COMMON/BND3/S(14401,101 ) 

COMMON/NEW_GRID/DELRO(101 ),ALF1(1 01 ).NGR1.NGR2 
COMMON/BND2/N.NJ24U JTPRTJTCNT J43 1 

COMMON/PR_OLD_Z/CON_Z(201 ,101 ),CON_R(201 ,1 01),CON S(201.101). 

. H_W(201,101),CP_P(201.101).H_FP(201,101),Q(4,201,101), 

. VISC_P(201,1 01 )J)_LPP(4,201 XRATE_C1 (201 ,101 ) 
COMMON/PROP_WAL/CP_WA,RO_WA,ERROROERROR1 

COMMON/PROP B Z/REC.VOID BJ3 LD F-S_R,AI.F,r,r7M W 
COMMON/PROP D Z/DELZJDELT.TIME.DELRl,r> F.l.R? l T7 r f.Nr Nip yp 
COMMON/PROP_S_Z/CP_S,RO_S,AINT.R_P,D_P,CON_Sl,HEAT(4) 

COMM ON/INIT _Z/RO_FO, U_FO, U_F 1 ,CP_FO,f FO.TO.C FO(4)JC F.P C(4) 
COMMON/MISC_Z/R,G_F.PI J>_T0T3C_L13C L23C L33C L4.BC_L53C 1 
COMMON/INDlC/Ll.L2.L3X4a-5X6XUM3JUJJVEL 1 
COMMON/INDICl/IND(4) 

COMMON/RADIAURP 
COMMON/GAS /INERT J^COMPJvfW 
COMMON/NCY/NC1 

COMMON/PRIME/GN2. RA.RAV.EPSEX.RHOS.TAMB -ALPHA 1 . .UTNS HW AI T . T FN T 
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DATA EMIS.R 1 JONCE , JONCE JCOUNT JCOND 1 /.9,555 .0,0,0, 1/ 
c there is a temperature difference between the gas and solid phases 
c IF(LL.EQJCOM)THEN 

c BC_L1 =TEMPIN (TIME) 

c ICOM=LL+l 

c END IF 

IF(Jl.EQ.l AND. IONCE.EQ.O)THEN 
IONCE-1 
NJ OR 1=1 
LSOL.FLCM) 

c an indication number for type of gas to compute the gas conductivity, 
c 1=N2, 2=air, 3=co2 
IGA5=1 
DP=R P*2. 

IF(IVEL l.EQ.l)THEN 
IR=10 
ELSE 
IR=5 
END IF 

c calculating the area for heat transfer to the wall or from the wall 
D_T=D_E+D_I 
X_W=D E-D I 

A_C=2*D I/((D_I+D_E)*X_W) 
AJNS=2*D_E/((D_I+D_E)*X_W)* 1 A 
c heat transfer coefficient outside of the wall 
H_OW=0.1 
END IF 

c call vel_por to compute velosity and porosity profile 
IF(Jl.EQ.l AND. JONCE-EQ.O)THEN 
JONCE=l 

c compute the ratio of distance from the center to each grid over the pellet 
c diameter 
RR=0. 

RR0(NJR>=0. 

DO I5=NJR-U,-1 
RR=RR+DELR0(I5+1 )/D_P 
RR0(I5>=RR 
END DO 

c this section calculates the coefficients to the discretized PDE’s 
c 

c compute the inverse of distance from the center to each grid 
RR=0. 

DO 15=1 J^JR 
IF(I5NE.1)THEN 
RR=RR+DELR0(I5) 

RP(I5>=1./RR 

ELSE 

RP(I5)=0. 

END IF 

IF(I5XTJR) THEN 
DELR=DELR0(1) 

DR(I5)=DELR 
ELSE IF(I5.eqJR)THEN 
DELR1*DELR0(IR) 

DELR2=DELR0(IR+1 ) 

DELR=DELR1 
DR(I5)=DELR 
FR=DELR2/DELR 1 

c these variables are bem computed at the pont where two adjant grids are 
c not the same size 

F01(I5)=FR/(1+FR) 

F11(I5)=(L-FR)/FR 

F21(I5>=17((1.+FR)*FR) 

F02(I5)=17fl+FR) 
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F12(I5)-iyFR 

F22(I5)-U((1.+FR)*FR) 

ELSE 

DELR-DELR00R+1) 

DR(I5)=DELR 
END IF 
END DO 
END IF 

c this section calls the proper subroutine to compute the parameters such as 

c diffusivity, conductivity 

IF(Jl.EQ.l AND. ICOUNT LT JT)THEN 
I5-JJ 

ICOUNT-ICOUNT+1 

DOI6-1.NJR 

DOMl»l,NC 

YCKMl >-C(MlJ6r R1 *C(LU6)/S(L5 J5 J6) 

END DO 
TEMP-C(LU6) 

M AVE-0 
SUM Y-0. 

DO M1-1.NC 

M AVE-M_AVE+YO(M 1)*M_W(M1 ) 

SUM Y=SUM_Y+YO(Ml) 

END DO 

M_A VE»M_ A VE-K 1 -SUM Y)*28. 

RO_F=S(L5J5J6)/(C(LlJ6)*Rl) 

IF(RO FLE.O)RO F-P T0T/(C(L1J6)*R1) 

GN2-GN 

GN«S(L4J5J6)*RO F/60 *VOID_B 
IF(GN.EQ.0)GN*GN2 
c calculate Reynolds number 
REY*RE(GN,TEMP) 
c calculate specific heat of gas phase 

CP_P(I5J6)-CPGAS(TEMP.YO) 
c calc viscosity 

VISC_P(I5J6>=VIS(TEMP)*60. 
c calc heat transfer coeff 

H_FP(I5J6>=HFILM(MW.TEMPJIEY,CP_P(I5J6))*60. 

itestllaO 

IF(ITEST1 1 .EQ.O) MN=2 

c this section compute the conductivity of gas and solid in axial and 
cradial directions 

CALL PHI_COND(IGAS,TEMP,CON S1.EPS(1),PHLPHIW) 

CALL CONDU(MNJGASJ»HLD P,CON_S1.RRO(I6),U1(U6),REY. 
TEMPI’S (I6LEPS( 1 ),EFF CON R 1 ,CON_R 1 >EFF_CON JZl . 
CON_Z1.CON_P1J4JILNGR1JSIGR2J6) 
c if there is a tepmperature difference between the gas and solid 
IF(I SOL FLO£Q.l)THEN 
CON_Z05J6)-CON_Z1 
CON_S(I546)-CON_Pl 

c if there is no tepmperature difference between die gas and solid 
ELSE 

CON_Z(I5J6)«EFF_CON_Zl 
END IF 

c computation for number of co m ponent 
DOMl*l.NC 

c calc the molecular diffusivity of eac componet in the mixture 
DIF=DIFF(M 1,TEMP.S(LS J5 J6),YO)*60 
c calc Schmidt number 

SC_N* VISC_P(I5 J6)/DIF/RO_F/M_A VE 
calc axial diffusion 

CALL AXDIFF R_Z(MNJGAS.PHLD_P,DIF,RR0a6).Ul(U6), 
REY,SC_N,TEMP.EPS(16),EPS(1)»EFF_DIFF_R,EFF_DIFF_Z, 
njr jigrl .NGR2J6) 
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C D LP R(M1J5J6>=EFF_ DIFFER 

C D LP Z(M 1 J5 ,16)=EFF_DIFF_Z 

D LP Z(M1J5J6>=C0N Z(I5J6)/RO_F/CP_P(I5J6) 

END DO 

c calc the heat transfer coefficint between the gas phase and the wall 
IFfl6.EQ.NJR) THEN 

IF(GN.EQ.O)GN=S(U. 1* 1 )*RO_F/60. * VOID.B 
REY=RE(GN,TEMP) 

CALL HEAT WALLflGAS,PHIW,D_P,CON.Sl.RROa6),Ul(U6X 
R£Y f TEMP, VOID_B*H_W 1 ) 

H W(I5,NJR)=H_W 1 
END IF 

IFflCOND 1 .EQ. 1 )THEN 
VAV=G_F/D_I/D_I/PI*4 
GA=G F/D l/D_I/PI*4.*RO_F 
TAV=S(LU.1)A.8 
R0=S(L5,U)/S(L1,U)/R1 
CP=CP_P(U) 

A VI S= VISC P(l,l) 

AKC=.000358895+3.0026706379E-5*S(LLU)-53528942E-9* 

1 S(LU.irS(Ll.U) 

CALL CONDUCl(EMIS,CON_S LD.P,D_LGA,VAV f TA V JlO t CP f AVIS, 
1 AKCJ^JR^PSEX£PS(1XEPS(NJR)J)ELR0X^KT) 

ICONDl^O 
END IF 

CON_R(I5J6)=AKT(I6) 

IF(E(I6).LE.0)Efl6>*E(I6- 1 ) 

DOMUIJ^C 

C D LP_R(MlJ5J6)=AKTfl6)/RO/CP 

D_LP R(MlJ5J6)*Efl6) 

END DO 
END DO 

IF(CON Z(I5*NJR).EQ.0)THEN 
CON Z(I5^JR>=CON_Z(I5^JR-l) 

DOMl=lNC 

D LP Z(M1J5NJR)=C0N _Z(I5^JR)/RO^F/CP_P(I5J^JR) 

END DO 
END IF 
DOIl=l,NJ 
DO Ml=l J4C 

D_LPP(M1 J1)=D LP.Z(M1JU) 

END DO 
END DO 
END IF 

c set the parameters to new variables 
J=JJ 

H FW=H_W(J*NJR) 

RO_F=S(L5 J J1 V(C(L1J 1 )*R1 ) 

CP F=CP_P(JJ1) 

H_FS*H FP(JJl) 

CON_L*CON_Z(J J 1 ) 

DO M1*1,NC 

D L(M1)=D.LP_Z(MUJ1) 

END DO 
DOMl=lNC 

D_RF(M 1 >=D.LP_R(M 1J J1 ) 

END DO 

CON RF=CON_R(JJl) 

CON_P=CON_S (J J 1 ) 

KK=0 

D L_AVE=0. 

DOMl=lNC 
IF(D_L(M 1 ).GT.0)THEN 
D_L_A VE=D_L_A VE+D_L(M 1 ) 
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KK-KK+1 
END IF 
END DO 

D_L_AVE*D L.AVE/KK 
VISC F*VISC_P(JJ1) 

D0I1=1,NC 

ssai>-caui) 

END DO 

c call the isotherm to compute the equilibrium concentration 
CALL IST_Zd,C(L2Jl),SS.Q2) 
c based the equilibrium per unit volume of pellet 
DOI-1.NC 
Q(UJl>-Q2<I)*RO_S 
END DO 

c this is the boundry, the first grids in axial direction 
IF(J.EQ.1JTHEN 
RATE.C-0 

c compute the total amount is being adsorbed 
DOMl=l,NC 

RATE_C»RATE C+K_F(M1)*AINT*(Q(MUJ1)-C(M1+NCJ1)) 
END DO 

RATE_C1(JJ1 )»RATE_C* ( 1 -EPS ( J1 )) 

RATE_H«0 

c compute the total heat of adsorption 

C HEAT(2>=-(4 1 1 .93585-57470-2733*C(3Jl )/RO_S+397 1259 .2258* 

C . C(3J1)**2/R0 S/RO S)*44 

DOMl-LNC 

RATE.H-RATE H+HEAT(MirK_F(Ml)*AINT*(Q(MUJl)- 
C(M1+NCJ1» 

END DO 

c this "if calculates the first grid in radial direction, center of the bed 
IF(J1.EQ.1)THEN 
TOT.OO. 

c computation of molar density co mp onent 
DOM1-1.NC-1 

A2* W(2*D_L(M 1 )/DELZ**2+S(L4 J,J1 yDELZ+4*D_RF(M 1 y 
DR(J1 VDR(J1 HI JDELT) 

P1»D_L(M1)/DELZ**2*(BC_1(M1>+'S(M1J+1J1)) 

P2=-S(L4.J,J1 )/(DELZ)*(-BC_l (M 1 )) 

P3=-ALFl (J1 r AINT*K_F(M1 r (QfMlJJl )-C(Ml+NC Jl)) 

P4-4*D_RF(M1)*(C(MU1+1))/DR(J1VDR(J1) 

PS-(-P(MUl))/DELT 

F(M1)=-C(M U1 >+A2*(Pl+P2+P3+P4+P5) 

TOT_C-TOT C+C(M1,J1) 

END DO 

F(NCMS(L5JJl)-TOT C*R1*S(LUJ1)VR1/S(L1JJ1)- 
C(NCJ1) 

c computation of molar adsorption for each component 
DOM1-1.NC 

A2=l V(K_F(M 1 r AINT+1 jDELT) 

F(M1+NCV-C(M1+NCJ1HA2*(K F(M1)*AINT*(Q(MUJ1))+ 
P(M 1+NCJ 1 yDELT) 

END DO 

c computation of gas temperature 

IF(I_SOL_FLO .EQ.1)THEN 

A2* 1 V(2*CON_L/DELZ* * 2+RO F*CP F*(S(UJJ1)/DELZ+ 

1 7DELT>»4*CON_RF/DR(J 1 )/DR( J 1 )) 
P1-C0N_UDELZ**2*(BC_L1+S(L1J+1J1)) 

P2=-RO F*CP_F*S(L4 J J 1 )/(DELZ)*(-BC LI) 
P3=-(l-EPS(Jl)yEPS(Jl)*H_FS*AINT*(C(Ll,Jl)-C(L2.Jl)) 
P4.-RO F*CP_F*C(L1J1)*(S(L4,J+1J1)- 
S(L4JjI))/(DELZ) 

P5=4*CON RF»(C(LU1 +1 ))/DR(Jl )/DR(Jl ) 

P6--RO F*CP F*(-P(L1J1)VDELT 
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F(L1 )=-C(Ll,Jl )+A2*(Pl+P2+P3+P4+P5+P6) 
c computation of solid temperature 

A2=1V(2*C0N P/DELZ**2+(RO_S*CP_S )/DELT + 
4*CON_P/DR(fl )/DR(J 1 )) 

P1=MNT*H_FS*(C(L1 J1 >C(L2J1 )) 

P2_ .rate H 

P3-C0N_P»(S(L2J+U1 )+S(L2J+lJ 1 ))/DELZ/DELZ 
P4=4*C0N_P*(C(L2,J1+1 ))/DR(Jl)/DR(Jl ) 
P5=-R0_S*CP_S*(-P(L2J1)VDELT 
F(L2>*-C(L2, J 1 )+A2* (PI +P2+P3+P4+P5 ) 
c computation of effective temperature 
ELSE 

A2= 1 V(EPS( J1 )* (2*CON_lVDELZ**2+RO_F*CP_F* S (L4 J J 1 )/ 
DELZWEPS(Jl)*RO_F*CP_F+<l-EPS(Jl))*RO_S*CP_S)/DELT+ 
4*EPS(J 1 )*CON_RF/DR(Jl )/DR( J 1 )) 

Pl=EPS(Jl)*CON L/DELZ**2*(BC_L1+S(L1,J+U1 )) 
P2=-EPS(J1)*R0_F*CP_F*S(L4J,J1)/(DELZ)*(-BC_L1) 

P3=-< 1 -EPS(J 1 ))*RATE_H 

P4— EPS(Jiy*RO_P*CP_F*C(LlJl)»(S(UJ+lJl>- 
S(L4 J J1 ))/(DELZ) 

P5=4*EPS(J 1 )*CON_RF*(C(Ll J1 +1 ))/DR( J1 VDR(J 1 ) 

P6=-(EPS(Jl)*R0_F*CP_F-t-(l-EPS(Jl))*R0_S*CP_S)* 

(-P(L1J1))/DELT 

F(L1 >=-C(Ll ,J1 )+A2*(Pl+P2+P3+P4+P5-t-P6) 


F(L2)=C(L2J1)-BC_L1 
END IF 

c the same computation as above except it is now for die grid at the wall 
ELSE IF(J1.EQ.NJR)THEN 
TOT_C=0. 

c camp of molar density of component 
DO M1=1.NC-1 

A2=1V(2*D L(Ml)/DELZ**2+S(L4JJl)/DELZ+2*D_RF(Miy 
DR(Jl)/DR(Jl>t-l./DELT) 

P1=D L(M1)/DELZ**2*(BC_1(M1>+-S(M1 J+1J1)) 
P1=-S(L4J,J1 )/(DELZ)* (-BC_1 (Ml )) 

P3-ALF1 (J1 r AINT*K_F(M1 )• (Q(M1J J1 )-C(Ml+NC Jl)) 
P4=D RF(M 1 )*RP(J1 )*(C(M1,J1 - 1 )-C(MU 1 -1 ))/(2*DR(J 1 )) 
P5=2*D_RF(M 1 )* (C(M 1 J 1 -1 ))/DR (J 1 )/DR( J 1 ) 
P6=P(M1,J1)/DELT 

F(M1 >=-C(MUl )+A2*(Pl+P2+P3+P4+P5+P6) 

TOT C=TOT_C-t-C(Ml,Jl) 

END DO 

F(NC>=(S(L5JJ1>T0T_C*R1*S(LUJ1))/R1/S(LUJ1)- 

C(NCJ1) 

c comp the molar adsorption 
DOM1-1.NC 

A2-1V(K F(M 1 >* AINT+1 VDELT) 

F(Ml+NC^-C(Ml+NCJl>+-A2*(K_F(MirAINT*(Q(MUJl))+ 

P(M1+NCJ1)/DELT) 

END DO 


c camp of gas phase temperature 

IF(I SOL FLO.EQ.l)THEN 

A2=17(2*CON L/DELZ**2+R0_F*CP_F*S(L4J,J1 )/DELZ+ 
(RO_F*CP F)/DELT+2*CON_RF/DR(J 1 yDR(Jl)) 
P1«C0N_UDELZ**2*(BC_L1+S(LU+U1)) 

P2=-R0 F*CP_F*S(L4JJ1)/(DELZ)*(-BC_L1) 
P3=^l-EPS(Jl7VEPS(Jl)*H.FS*AINT*(C(LUlK(L2Jl)) 
P4=-RO_F*CP F*C(L1J1)*(S(L4 > J+U1>- 
S(LUJ1))/(DELZ) 

P5=CON RP*RP(J1)*(2.*H_FW*DR(J1)/C0N_RF*(C(L3,J1> 
C(L1J1)))/(2*DR(J1)) 

P6=CON RF*(2*C(LUl-l)+2*H_FW*DR(JiyCON_RF*(C(L3Jl> 
. C(LlJl)j)/DR(Jl)/DR(Jl) 
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P7=-R0_F*CP_P*(-P(L1J1)VDELT 
F(L1>=-C(L1.J1 KA2»(P1 +P2+P3+P4+P5+P6+P7) 
c comp of solid phase temperature 

A2»17(2*CON_P/DEL2**2+(RO S*CP S)/DELT+ 
2*C0N_P/DR(J1)/DR(J1)) 

P1=AINT*H_FS*(C(L1J1)-C(L2J1)) 

P2=-RATE_H 

P3-CON_P*(S(L2J+lJl>+S(L2J+lJl)yDELZ/DELZ 
P4=CON_P* RP(J 1 )*(C(L2J1-1)-C(L2J1-1))/(2*DR(J1)) 

P5«CON_P* (2*C(L2J1 - 1 ) VDR(J 1 VDR(J 1 ) 

P6— R0_S*CP_S»(-P(L2J1))/DELT 
F(L2)=-C(L2J1 KA2*(P1+P2+P3+P4+P5+P6) 
c comp of effective t empera ture 
ELSE 

A2=l V(EPS(J1 )*(2*CON_L/DELZ**2+RO F*CP F*S(UJJ1)/ 

DELZWEPS(Jl)*RO F*CP_F+(l-EPS(Jl))*RO S*CP SVDELT+2* 

EPS(JirCON_RF/DR(Jl)/DR(Jl)) 

P1»EPS(J1)*C0N_L/DELZ**2*(BC_L1+S(L14+1J1)) 

P2»-EPS(Jl)*RO_F*CP_F*S(L4J4l)/(DELZ)*(-BC_Ll) 

P3=-(1-EPS(J1))*RATE_H 

P4*-EPS(J1 )*RO_F*CP F*C(L1J1)*(S(L4J+1J1)- 

S(U JJ1))/(DELZ) 

P5=EPS(Jl)*CON_RF*RP(Jl)*(2.*H_FW*DR(JiyCON RF* 
(C(L3J1)-C(LU1)))/(2*DR(J1)) 

P6=EPS(J1 )*CON_RF*( 2 *C(LlJl-l)+ 2 *H_FW*DR(Jl y 
CON_RF*(C(L3Jl)-C(Ll.Jl))yDR(Jl)/DR(Jl) 

P7«-<EPS(J1 )*RO_F*CP_F-K 1 -EPS(J1 ))*RO S*CP S)* 
(-P(L1J1))/DELT 

F(L1>=-C(LU1 )+A2*(Pl+P2+P3+P4-*-P5+P6+P7) 

F(L2)*C(L2J1 )-BC_Ll 
END IF 

F(L3>t-C(L3Jl HDELT/RO WA/CP_WA*(A C*H FW*(C(L1J1>- 
C(L3Jl))-A_INS*H_OW*(C(L3Jl)-TO)H-P(L3Jlj) 

ELSE 

c the same computation as above except it is now for the grids from the center 
c to the pant where the velocity start to chane 
F(Jl.NEiR)THEN 
TOT.OO. 

c comp molar density of each component 
DO Ml-l.NC-1 

A2=lV(2*D_L(Ml)/DELZ**2+S(L4J4iyDELZ+2*D_RF(MiyDR(Jl) 

/DR(JlHljDELT) 

Pl=D_L(Ml)/DELZ**2*(BC 1(M1>+S(MU+U1)) 

P2=-S(L4 J J 1 )/(DELZ)* (-BC_1 (Ml)) 

P3=-ALF1(J1)*AINT*K_F(M1)*(Q(M1JJ1>-C(M1+NCJ1)) 

P4«D_RF(M1)*RP(J1)*(C(MU1+1)-C(MU1-1))/(2*DR(J1» 

P5«D_RF(M1)*(C(M1J1+1)+C(M1J1-I)y 

DR(J1VDR(J1) 

P6-(.P(MlJl)yDELT 

F(M 1 V-C(M 1 J1 >+A2*(P 1 +P2+P3+P4+P5+P6) 

TOT_C«TOT_C+C(M 1 J 1 ) 

END DO 

F(NCWS(L5JJl>TOT_C*Rl*S(LUJl)yRl/S(LU41)- 

C(NCJ1) 

c compute molar adsorption 
DOM1-1.NC 

A2=U(K_F(M 1 r AINT+1 7DELT) 

F(M1+NC)=-C(M1+NC41)+A2»(K_F(M1)*AINT'(Q(MU,J1)>+ 

P(M 1 +NCJ 1 VDELT) 

END DO 

c compute gas temperature 

Fa SOL_FLO .EQ.1)THEN 

A2= 1 V(2*CON_L/DELZ**2+RO_F*CP_F*S(L4 JJ1 )/DELZ+ 
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(RO F*CP_F)/DELT+2*CON_RF/DR(J 1 )/DR(J 1 )) 

Pl=CON L/DELZ**2*(BC L1+S(L1J+1 Jl)) 

P2=-RO F*CP_F*S(L4JJ1)/(DELZ)*(-BC_L1) 
P3=-(1-EPS(J1))/EPS(J1)*H_FS*AINT*(C(LU1)-C(LZJ1)) 

P4=-RO F*CP_F*C(L1J1)*(S(L4J+1J1>- 
S(L4 J J 1 ))/(DELZ) 

P5=C0N_RF*RP(J1)*(C(L1J1+1)-C(L1J1-1))/(2*DR(J1)) 
P6=CON_RF*(C(Ll Jl +1 HC(L1 ,J1 - 1 )yDR(Jl )/DR(Jl) 
P7=-RO_F*CP_F*(-P(Ll J 1 ))/DELT 
F(L1)=-C(L1 J1)+A2*(P1+P2+P3+P4+P5+P6+P7) 
c compute solid temperature 

A2= 1 V( 2 *CON_P/DELZ * * 2-KR 0_S * CP_S )/DELT+ 

2*CON P/DR(J1)/DR(J1)) 

P1=AINT*H_FS*(C(L1J1)-C(L2J1)) 

P2=-RATE_H 

P3=CON P»(S(L2J+1J1)+S(L2J+1J1)VDELZ/DELZ 
P4=C0N P*RP(J1)*(C(L2J1+1)-C(L2J1-1))/(2*DR(J1)) 

P5=CON P*(C(L2J1+1}+C(L2J1-1))/DR(J1)/DR(J1) 
P6=-RO_S*CP_S*(-P(L2J 1 ))/DELT 
F(L2)=-C(L2J1 )+ A2*(P1 +P2+P3+P4+P5+P6) 
c compute effective temperature 
ELSE 

A2= 1 7(EPS(J 1 )*(2*CON_L/DELZ**2+RO_F*CP_F*S(L4JJl )/ 
DELZWEPS(J1 )*RO_F*CP_F+( 1 -EPS(J 1 ))*RO_S*CP_S)/DELT+2* 
EPS(Jl)'CON RF/DR(J 1 )/DR(J 1 )) 

Pl=EPS(Jl)*CON L/DELZ**2*(BC_L1+S(L1J+1J1)) 
P2=-EPS(J1)*R0_F*CP_F*S(L4JJ1)/(DELZ)*(-BC_L1 ) 

P3=-( 1 -EPS( J 1 ))* RATE_H 

P4=-EPS(J1)*R0_F*CP_F*C(L1 J1)*(S(L4J+1 J1)-S(L4JJ1))/ 
(DELZ) 

P5=EPS(J1)*C0N_RF*RP(J1)*(C(L1J1+1)-C(L1J1-1))/ 

(2*DR(J1)) 

P6=EPS(J1)*C0N_RF»(C(L1J1+1HC(L1J1-1)VDR(J1)/DR(J1) 
P7=-(EPS(J 1 )*RO_F*CP_F+{ 1 -EPS(Jl))*RO_S*CP_S)* 
(-P(L1J1))/DELT 

F(L1 >=-C(LlJl )+A2*(Pl+P2+P3+P4+P5+P6-t-P7) 

F(L2)=C(L2J1)-BC_L1 
END IF 

c the same computation as above except it is now for the grids from the point 
c where the velocity starts to change to the wall 
ELSE 
tot_c=o. 

c compute molar density of each component 

DOMl=lJsfC-l 

A2=l 7(2*D_L(M1 )/DELZ**2+S(L4 JJ1 VDELZ+F1 1 (Jl )*D_RF(M1)* 
RP(J1 )/DR(Jl >+2*D_RF(M 1 )*F12(J1 )/DR(Jl)/DR(Jl)+l./DELT) 

P1=D L(Ml)/DELZ**2*(S(MlJ+lJl>t-BC_l(Ml)) 

P2=-S(L4JJ1 )/(DELZ)*(-BC 1(M1)) 

P3=-ALF1 ( Jl )*AINT*K_F(M 1 )* (Q(M 1 J J 1 )-C(M 1+NC Jl )) 

P4=D RF(Ml)*RP(Jl)*(F21(Jl)*C(MlJl+l)-F01(Jir 
C(M1J1-1))/(DR(J1)) 

P5=2*D_RF(M 1 )*(F22(J 1 )*C(M 1 Jl+1 )+F02(Jl )*C(M1 J 1 - 1 )) 
/DR(J1)/DR(J1) 

P6=-(-P(Ml Jl ))/DELT 

F(M 1 >=-C(M 1J1 >+A2*(Pl +P2+P3+P4+P5+P6) 
T0T_C=T0T_C+C(M1J1) 

ENT' DO 

F(N'C^(S(L5JJ1>-T0T_C*R1*S(L1JJ1))/R1/S(L1JJ1)- 
. C(NCJ1) 

c compute molar adsorption 
DOMl=lJMC 

A2=l V(K_F(M 1 )• AINTtI ./DELT) 

F(M1+NC)=-C(M1+NCJ1>+-A2*(K_F(M1)*AINT*(Q(M1 JJ1))+ 
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'.non 

f* i 


P(M 1 +NC J 1 yDELT) 

END DO 

c compute the gas temperature 

IF(I_SOL_FLQ .EQ.1)THEN 

A2“17(2*CON_L/DELZ**2+RO_F*CP F*(S(L4JJ1)/DELZ+ 

1 ./DELT)+CON_RF*RP(Jl )*F1 1 (J1)/DR(J1)+2*C0N_RF*F12(J1)/ 
DR(J1VDR(J1)) 

P1«C0N_L/DEL2**2*(S(L1,J+1J1)+BC LI) 
P2*-RO_F*CP_F*S(L4 J J 1 )/(DELZ)*(-BC LI) 
P3=-(l-EPS(Jl)yEPS(Jl)*H_FS»AINT*(C(LUlK:(L2Jl)) 
P4*-RO_F*CP_F*C(Ll J1 )* (S(L4,J+1 J1 )- 
S(L4JJ1))/(DELZ) 

P5«CON_RF*RP(Jl r (F21 ai r C(L1 Jl+1>- 
F01 (J1 )*C(LU1 - 1))/(DR(J1)) 

P«*CON RF*(F22(Jl)*C(LUl+l)+F02ai)*C(LUl-l))/ 
DR(J1VDR(J1) 

P7=-RO F*CP_F*(-P(L1J1)VDELT 
F(L1KC(LU1HA2*(P1+P2+P3+P4+P5+P6+P7) 
c compute the solid temperature 

A2* 1 y(2*CON_P/DELZ**2-KRO_S *CP_S )/DELT + 

CON P*RP(Jl)*Fll(Jl)/DR(Jl)+2*CON_P*F12(Jl)/DR(JiyDR(Jl)) 
P1*AINT*H_FS*(C(L1 J1 )-C(L2Jl)) 

P2*-RATE_H 

P3-C0N_P/DELZ/DELZ*(S(L2J+1J1KS(L2J+UD) 

P4=CON P*RP(Jir(F21(JirC(L2Jl+l)-F01(Jir 
C(L2J1-1))/(DR(J1)) 

P5=2*CON P*(F22(J1)*C(L2J1+1>+F02(J1)*C(L2J1-1)V 
DR(J1)/DR(J1) 

P6=-R0_S*CP_S*(-P(L2J1)VDELT 
F(L2)=-C(L2J1 >+A2*(Pl +P2+P3+P4+P5+P6) 

ELSE 

c compute the effective temperature 

A2=U(EPS(J 1 )*(2*CON L/DELZ—2+RO P*CP_F»S(L4JJ1)/ 
DELZMEPS(J1 )*RO_F*CP_F+( 1 -EPS(Jl))*RO_S*CP_S)/DELT+ 
EPS(Jl)*CON RF*(RP(J1 )*F1 1 (J1 )/DR(Jl)+2*F12(Jl yDR(Jl) 
/DR(J1))) 

P1»EPS(J1)*C0N_IVDELZ**2*(S(L1J+U1)+BC_L1) 

P2*-EPS(J1 r RO F*CP_F*S(LAJJ1 )/(DELZ)*(-BC _L1 ) 

P3— (1-EPS(J1))*RATE H 

P4*-EPS(J1 )*RO_F*CP F*C(L1J1)*(S(L4J+1J1)- 

S(L4JJ1))/(DELZ) 

P5=EPS(J1)*CON_RF*RP(J1)*(F21(J1)*C(L1J1+1)-F01(J1)* 

C(L1J1-1))/(DR(J1)) 

P6*2*EPS(J1 r C0N_RF*(F22(J1 )»C(L1J1+1 >t-F02(Jl )* 

C(L1J1-1 ))/DR(Jl )/DR(Jl ) 

P7=-(EPS(J1)*R0_F*CP_F-K1-EPS(J1))*R0_S*CP S)* 
(-P(LU1))/DELT 

F(LlKC(LUl)+A2*(Pl+P2+P3-t-P4+P5+P6+P7) 

F(L2>=C(L2J1)-BC_L1 
END IF 
END IF 

ENDIF 


this section compute the S matrix variables for grid at z=L, the outflow 
c do un dry 
c 
c 


ELSE IF(J.EQ.NJ1)THEN 
c compute die total amount adsorbed 
RATE C-0 
D0M1-1.NC 
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RATE_C=RATE_C+K_F(M1)*AINT*(Q(M1 JJ1)-C(M1+NC,J1)) 
END DO 

c compute the total heal of adsorption 

RATE_C1(JJ1>=RATE C*(1-EPS{J1)) 

RATE_H=0 

C HEAT(2>=-(4 1 1 .93585-57470.2733 *C(3,J1 )/RO S+3971259.2258* 

C . C(3Jl)**2/RO_S/RO_S)*44 

DOM1-1.NC 

RATE_H=RATE_H+HEAT(M 1 )*K F(M 1 )* AINT* (Q{M 1 JJl )- 
C(M1+NCJ1)) 

END DO 

c this section compute the s matrix ai outflow boundry at the ceter of bed 
EFfJLEQ.l) THEN 
TOT_C=0. 

c compute the component molar density 
DO M1=1,NC-1 

A2=U(2*D_L(M1)/DELZ«*2+S(UJ.J1)/DELZ+4*D_RF(M1)/ 
DR(J1 )/DR(Jl >+ 1./DELT) 

P1=D L(M1)/DELZ**2*(2*S(M1J-1J1)) 
P2=-S(W.J.J1)/(DELZ)*(-S(M1J-U1)) 

P3=-ALF1 (J1 )* AINT*K_F(M 1 )*(Q(M 1 J J1 )-C(M 1+NCJ1 )) 
P4=4*D_RF(M 1 )*(C(M 1 J 1-t-l ))/DR(Jl )/DR(J 1 ) 

P5=-(-P(M 1 J 1 ))/DELT 

F(M1 >=-C(M 1J1 )+A2*(Pl+P2+P3+P4+P5) 

TOT C=TOT C+C(M1,J1) 

END DO 

F(NC)=(S(L5 J J 1 >TOT_C*R 1 •S(L1JJ1)VR1/S(L1JJ1>- 
C(NCJ1) 

c compute die molar adsorption 
DOMl=l,NC 

A2=W(K_F(M 1 r AINT+1 7DELT) 

F(M1+NC)=-C(M1+NCJ1)+A2*(K_F(M 1 )• AINT*(Q(M1 . J.J1 )>+ 
P(M1+NCJ1)/DELT) 

END DO 

c compute the gas temperature 

IF(I SOL FLO .EQ.1)THEN 

A2=l 7(2*CON L/DEL2**2+R0_F*CP_F*S(L4JJ1 )/DELZ+ 

(RO F*CP F)/DELT+4*CON_RF/DR(J 1 )/DR(J 1 )) 

P1=C0N LDELZ**2*(2*S(L1 J-1J1)) 

P2=-RO F*CP_F*S(L4JJ1)/(DELZ)*(-S(L1J-1J1)) 
P3=-(1-EPS(J1)VEPS(J1)*H_FS*AINT*(C(LU1>-C(L2J1)) 
P4=-RO_F*CP_F*C(Ll J1)*(S(L4.J-1J1)- 
. S(L4 J- 1 J 1 ))/(2*DEL2) 

P5=4*CON_RF* (C(L1J1 +1 ))/DR(Jl )/DR( J1 ) 

P6=-RO_F*CP_F*(-P(LUl))/DELT 

F(L1 )=-C(Ll,Jl )+A2*(Pl+P2+P3+P4-t-P5+P6) 

c compute the solid temperaure 

A2=17(2*CON_P/DELZ”2-KRO_S*CP S)/DELT+ 
4*CON_P/DR(J 1 )/DR(Jl)) 

Pl= AINT*H_FS*(C(L1 J 1 >C(L2J 1 )) 

P2=-RATE H 

P3-CON_P*(S(L2J-l J 1 KS(LU- U1 )VDELZ/DELZ 
P4=4*C0N_P*C(L2Jl-tT)/DR(Jl )/DR(Jl ) 

P5=-RO S*CP_S*(-P(L2J1)VDELT 
F(L2)=-C(L2Jl)+A2*(Pl+P2+P3+P4-t-P5) 

ELSE 

c compute the effective temperature 

A2= 1 V(EPS(J 1 )*(2*CON_L/DELZ**2+RO_F*CP F»S(L4JJ1)/ 
DELZWEPS(Jl)*RO F*CP_F+(l-EPS(Jl))*RO_S«CP_S)/DELT+ 
EPS(J1)*4*C0N_RF/DR(J1)/DR(J1)) 

Pl=EPS(Jl)*CON L/DELZ**2*(2*S(LU- 1J1 )) 
P2=-EPS(Jl)*RO_F*CP_F*S(L4 t J,Jl)/(DELZ)*(-S(LlJ-lJl)) 
P3=-(l -EPS( J 1 ))*RATE_H 
P4=-EPS(J1)*R0_F*CP_F*C(L1J1)*(S(L4J-1,J1>- 
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S(L4J-1J1))/(2*DELZ) 

P5-4*EPS(J 1 )*CON_RF*(C(Ll J 1 +1 ))/DR( J1 )/DR(J 1 ) 

P6=-{EPS(J1 )*RO_F*CP F-K1-EPS(J1))*R0 S*CP_S)* 
(-P(LU1))/DELT 

F(L1 KC(L1 J1 )+A2*(Pl+P2+P3+P4+P5+P6) 

F(L2)*C(L2J1>-BC_L1 
END IF 

c this section is for r at the wall 

ELSE IF(J1 .EQ .NJR) THEN 
Tcrr.oo. 

c compute molar density 
DOM1-1.NC-1 

A2»U(2*D_L/M1 )/DELZ**2+S(L4JJl )/DELZ+2*D_RF(Miy . 
DR(J1VDR(J1 K1JDELT) 

PI *D_L(M 1 )/DELZ**2*(2*S(M 14-1J1 )) 
P2*-S(L4JJ1)/(DELZ)*(-S(M1J-1J1)) 

P3=-ALF1 (J1 )* AINT*K_F(M 1 )*(Q(M1 J J1 VC(M 1+NC J1 )) 
P4«D_RF(M1)*RP(J1)*(C(M1J1-1)-C(M1J1-1))/(2*DR(J1)) 
P5=2*D_RF(M1 )*(C(M 1 J 1 - 1 )VDR(J 1 )/DR(J 1 ) 
P6=-(-P(MlJl))/DELT 

F(M1KC(MU1)+A2*(P1+P2+P3+P4+P5+P6) 

TOT_C*TOT_C+C (M 1J1 ) 

END DO 

F(NCWS(L5JJD-T0T_C*R1*S(LUJ1)VR1/S(LUJ1> 

C(NCJ1) 

c compute molar adsorption 
DOM1-LNC 

A2»17(K_F(M1)»A1NT+17DELT) 

F(Ml+NC)«-C(Ml+NCJl>t’A2*(K_F(Ml)*AINT*(Q(MUJl))+ 
P(M1+NC J1 yDELT) 

END DO 

c compute gas temperature 

IF(I_SOL_FLO iQ.iyTHEN 

A2»17(2*CON_L/DELZ**2-t-RO_F*CP F*S(L4JJ1)/DELZ+ 
(RO_F*CP_F)/DELT +2*CON_RF/DR(J 1 yDR(Jl )) 
Pl*CON_L/DELZ**2*(2*S(LlJ-lJl)) 
P2»-R0_F*CP_P*S(UJ41)/(DELZ)»(-S(LU-U1)) 

P3— (l-EPS(Jl)yEPS(Jl)*H_FS*AINT*(C(LUl)-C(L2.Jl)) 

P4=-R0_F*CP_F*C(L1J1)*(S(L4,J-1J1)- 

S(L4 J-1J 1 ))/(2*DELZ) 

P5*CON_RF*RP(J 1 )*(2.*H FW*DR(Jl)/CON RF*(C(L3J1>- 
C(LlJl))y(2*DR(Jl» 

P6*C0N_RF*(2*C(L1J1-1 >+2*H_FW*DR(Jl VCON RF*(C(L3 Jl>- 
C(LlJl))yDR(JiyDR(Jl) 

P7*-RO_F*CP_F* (-P(L1 J 1 )yDELT 
F(L1 V-C(L1J1 KA2*(Pl+P2+P3+P4+P5+P6-t-P7) 
c compute solid temperature 

A2*iy(2*CON_P/DELZ**2+(RO S*CP SVDELT+ 

2*CON_P/DR(J 1 VDR(J 1 )) 

P1*AINT*H_FS*(C(L1J1)-C(L2J1)) 

P2=-RATE_H 

P3=CON_P*(S(L2J-lJl)+S(L2J-lJl)yDELZ/DELZ 
P4=CON_P*RP(Jir(C(L241-l>-C(L2Jl-l))/(2*DR(Jl)) 
P5*CON_P* (2*C(L2J1 -1 )yDR(Jl yDR(J 1 ) 
P6»-RO_S*CP_S*(-P(L2Jl)yDELT 
F(L2>=-C(L2J1 )+A2*(Pl+P2+P3+P4+P5+P6) 

ELSE 

c compute effective temperature 

A2= 1 7(EPS(J 1 )*(2*CON_L/DELZ**2+RO_F*CP_F* S(L4 J J 1 )/ 
DELZWEPS(Jl)»RO F*CP_F+(1-EPS(J1 ))*RO S*CP SVDELT+ 
2*EPS(J 1 )*CON_RF/DR( J1 )/DR(Jl )) 
P1-=EPS(J1)*C0N_UDELZ«2*(2*S(LU-1JD) 

P2»-EPS(J1)*R0 F*CP_F*S (U J. J 1 )/(DELZ)*(-S(LlJ- 1 J 1)) 
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P3=-( 1 -EPS( J 1 ))* RATE_H 

P4=-EPS(J1)*R0 P»CP_F*C(LU1)*(S(L4J-1.J1)- 

S(UJ-1J1))/(2*DELZ) 

P5=EPS(J1)*C0K RF*RP(J1)*(2.*H FW*DR(J1)/C0N_RF* 

(C(L3 J1 )-C(Ll.Jl)))/(2*DR(Jl )) 

P6=EPS(J1 )*COK_RF* (2*C(L1 J 1 -1 )+2*H FW*DR(J1)/C0N_RP* 

. (C(L3J1)-C(LU1)))/DR(J1)/DR(J1) 

P7=-{EPS(J1)*R0_F*CP_F-K1-EPS(J1))*R0_S*CP_S)* 

(-P(L1J1))/DELT 

F(L1 )=-C(LlJl )+A2* (PI +P2+P3+P4+P5+P6+P7 ) 

F(L2>»C(L2J1)-BC_L1 
END IF 

c compute the wall temperature 

F(L3)=-C(L3,J1 HDELT/RO WA/CP_WA*(A_C*H_FW*(C(LUI>- 
C(L3J1 ))-A_INS*H_OW*(C(L3Jl>TO)H-P(L3Jl)) 

ELSE 

c this section computes S matrix for those grids with constant grid siz 
IF(J 1 .NE JR)THEN 
TOT_C=0. 

c compute molar density 
DO M1=1.NC-1 

A2= 1 7(2 * D_L(M 1 )/DELZ* *2+S (L4JJ1 VDELZ+2* D_RF(M 1 V 
DR(J1 )/DR( J 1 }+ 17DELT) 

P1=D L(M1)/DELZ**2*(2*S(MU-1J1)) 
P2=-S(L4JJ1)/(DELZ)*(-S(M1J-1,J1)) 

P3=-ALF1 (J1 r AINT*K_F(M 1 )*(Q(M1J J1 >C(M 1+NC J1 )) 

P4=D RF(M1 )*RP(J1 )*(C(M I.J1 +1 )-C(Ml Jl-1 ))/(2*DR(Jl )) 
P5=D_RF(M1 )*(C(M ljl+l >+C(M 1.J1 -1 )yDR(JIVDR(Jl ) 
P6=-(-P(MlJl))/DELT 

F(M1 KC(M1J1HA2*(P1+P2+P3+P4+PS+P6) 
TOT_C=TOT_C+C(M1,J1) 

END DO 

F(NC)=(S(L5JJ1)-T0T_C*R1*S(LUJ1))/R1/S(LUJ1>- 

C(NCJ' 

c compute molar adsorption 
DOMl=lXC 

A2=17(K_F(M 1 r AINT+1 ./DELT) 

F(M1+NC)=-C(M1+NCJ1>(-A2*(K_F(M1)*AINT*(Q(M1 J,J1)>+ 
P(M 1 +NC J 1 VDELT) 

END DO 

c compute gas temperature 

IF(I SOL FLO .EQ.1)THEN 

A2=17(2*C0N L7DELZ**2+R0 F*CP_F*S(LU,J1)/DELZ+ 

(RO F*CP F)/DELT +2*C0N_RF/DR(J 1 )/DR( J 1 )) 
Pl=CON_ljDELZ**2*(2*S(LlJ-lJl)) 

P2=-RO_F*CP F*S(L4JJ1)/(DELZ)*(-S(L1 J-1J1)) 

P3=-( 1 -EPS( J1 )VEPS(J 1 )*H_FS* AINT*(C(L1 J1 )-C(L2,Jl )) 
P4=-RO_F*CP F*C(L1J1)*(S(L4,J-1J1)- 
S(L4 J- 1 J 1 ))/(2*DELZ) 

P5=CON_RF*RP(J 1 )*(C(L1 J 1+1 )-C(Ll J1 -1 )Y(2*DR(J 1 )) 
P6=CX)N_RF*(C(L1J1+1)+C(L1 J1-1))/DR(J1)/ 

DR(J1) 

P7— RO_P*CP F*(-P(L1J1)VDELT 
F(L1 )=-C(Ll J 1 HA2*(P1 +P2+P3+P4+P5+P6+P7) 
c compute solid temperature 

A2= 1 7(2*CON_P/DELZ**2+(RO S*CP_S)/DELT+ 

. 2*CON_P/DR(J 1 )/DR(J 1 )) 

PI = AINT*H_FS* (C(L1 J 1 )-C(L2J 1 )) 

P2=-RATE H 

P3=C0N_P*(S(L2J-1J1 )+S(L2J-l,Jl))/DELZ/DELZ 
P4=C0N_P* RP(J 1 )*(C(L2Jl+ 1 )-C(L2Jl - 1 ))/(2*DR( J 1 )) 

P5=C0N P*(C(L2J1+1>+C(L2.J1-1))/DR(J1)/DR(J1) 

P6=-R0 S»CP S*(-P(L2J1))/DELT 
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F(L2>=-C(L2.J1 )+A2*(Pl+P2+P3+P4+P5+P6) 

ELSE 

c compute effective temperature 

A2* 17(EPS(J 1 )*(2*CON_L/DELZ**2+RO F*CP_F*S(L4JJ1)/ 
DELZWEPS(Jl)*RO_PCP_F+(l-EPS(Jl))*RO S*CP S)/DELT+2* 
EPS(Jl)*CON_RF/DR(JiyDR(Jl)) 

P1»EPS(J1 )*C0N_L/DELZ**2*(2*S(LU-1J1)) 

P2»-EPS(J 1 )*RO_F*CP_F*S(L4, JJl )/(DELZ)*(-S(Ll 4-1 Jl)) 
P3=-(1-EPS(J1))*RATE_H 
P4=-EPS(J1)*R0_PCP_PC(LU1)*(S(UJ-U1>- 
S(L4J-1J1))/(2*DELZ) 

P5-EPS(J1 )*CON_RF*RP(Jl )* (C(L1J1+1 )-C(L141-l)V(2* 

DR(J1)) 

P6»EPS(J1)*C0N_RF*(C(LU1+1)4C(LU1-1))/DR(J1)/DR(J1) 
P7»-<EPS(J1 )*RO_F*CP F+<l-EPS(Jl))*RO S*CP S)* 
(-P(LU1))/DELT 

F(L1K-C(LU1)+A2*(P1+P2+P3+P4+P5+P6+P7) 

F(L2)-C(L2J1>-BC_L1 
END IF 

c this section compute s for variable grid size 
ELSE 
TOT.C-O. 

c compute the molar density 
DOMUl.NC-1 

A 2-1 7(2*D_L(Ml)/DELZ*r2+S(U,JJl VDELZ+F1 1(J1 )* D RF(M 1 )» 
RP(J1 VDR(J1 )+2* D_RF(M 1 )*F1 2(J1 )/DR(J 1 )/DR(J 1 )+l VDELT) 

PI «D_L(M 1 VDELZ**2*(2*S(M 14-141 )) 
P2*-S(UJJl)/(DELZr(-S(MU-Ul)) 

P3— ALFKJl )»AINT*K_F(Mir (Q(M 1 JJ 1 )-C(M 1 +NCJ 1 )) 
P4«D_RF(Ml)*RP(Jir(F21(Jl)*C(MUl+l)-F01(Jir 

C(M 1 J1 - 1 ))/(DR(Jl » 

P5*2*D_RF(Ml)»(F22(Jl)*C(MUl+lKF02(JirC(MUl-l)) 

/DR(J1)/DR(J1) 

P6— (-P(M1J1))/DELT 

F(M1 >-C(M U1 KA2*(P1+P2+P3+P4+P5+P6) 

TOT_C*TOT_C+C(M 1 J1 ) 

END DO 

F(NCWS(LSJ41>T0T_C*R1*S(L1JJ1))/R1/S(LUJ1)- 

C(NCJ1) 

c compute molar adsorption 
DOMl=LNC 

A2= 1 V(K_F(M 1 )• AINT+1 7DELT) 

F(M1+NC^-C(M1+NCJ1HA2*(K_F(M1)*AINT*(Q(MU41))+ 

P(M 1 +NC4 1 yDELT) 

END DO 

c compile the gas temperature 

IF(I_SOL_FLO.EQ.l)THEN 

A2»li(2*CON_L/DELZ**2-t-RO_P*CP_P(S(L4JJiyDELZ+ 
17DELT>+CON_RP*RP(Jl)*Fl 1 (J1 )/DR(Jl H2»CON_RF» 
F12(J1VDR(J1VDR(J1)) 

P1-C0N_UDELZ**2*(2»S(L14-141)) 

P2— RO_PCP_PS(UJ41)/(DELZ)*(-S(LU-Ul)> 

P3— <1-EPS(J1)VEPS(J1 )*H_FS*AINT*(C(LU1)-C(L2J1)) 

P4— R0_PCP_PC(L1J1)*(S(UJ-1J1>- 
S(UJ-U1))/(2*DELZ) 

P5-CON_RF*RP(Jl)*(F21(Jl)*C(LUl+l)-F01(Jir 

C(L1J1-1))/(DR(J1)) 

P6=2*CON_RF*(F22(J1)*C(L1J1+1>+F02(J1)*C(L1J1-I)y 

DR(J1VDR(J1) 

P7— R0_PCP_P(-P(L1J1)VDELT 
F(L1 >=-C(L141 >t-A2*(Pl+P2+P3+P4+P5+P6+P7) 
c compute the solid temperature 

A2= 1 V(2*CON_P/DELZ**2+(RO_S *CP_S)/DELT+ 
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CON_P*RP(Jl)*Fll(Jl)/DR(Jl>+2*CON_P*F12(Jl)/DR(Jl)/DR(Jl)) 

P1=AINT*H_FS*(C(L1J1>-C(L2J1)) 

P2—.RATE H 

P3=CON_p7dELZ/DELZ*(S(L2J-U1)+S(L2J-1J1)) 

P4=CON_P*RP(J1)«(F21(J1)*C(L2J1+1>-F01(J1)*C(L2,JM)) 

/(DR(J1)) 

P5=2*CON_P*(F22(J 1 )*C(L2J 1+ 1 >+F02(J 1 )*C(L2J 1 - 1 )V 
DR(J1VDR(J1) 

P6=-R0 S*CP_S*(-P(L2J1))/DELT 
F(L2)=-C(L2,Jl>tA2*(Pl+P2+P3+P4+P5+P6) 

ELSE 

c compute the effective temperature 

A2»17(EPS(Jl)*(2*CON_L/DELZ**2+RO_F*CP_F*S(L4JJl)/ 
DELZMEPS(J1 )*RO_F*CP_F-Kl -EPS(J 1 ))*RO_S*CP_S)/DELT+ 
CON RF*EPS(J 1 f (RP(J1 )*F1 1 (J 1 VDR(J 1 >t-2*Fl 2(J 1 )/DR(J 1 V 
DR(J1))) 

Pl=EPS(Jl)*CON L/DELZ**2*(2*S(L1J-1J1)) 

P2»-EPS(JirRO_P*CP_F*S(UJ,Jl)/(DELZ)*(-S(LU-Ul)) 

P3=-(1-EPS(J1))*RATE_H 

P4=-EPS(J1)*R0_F*CP_F»C(LU1)*(S(L4J-1.J1> 

S(L4 J- 1 J 1 ))/(2* DELZ) 

PS=EPS(Jl)*CON RP*RP(J1)*(F21(J1)*C(LU1+1)-F01(J1)» 
C(L1J1-1))/(DR(J1)) 

P6=2*EPS(J1)*C0N RF*(F22(J 1 )* C(L 1 . J 1 + 1 >+F02(J 1 )* 
C(LU1-1)VDR(J1)/DR(J1) 

P7=-(EPS( J 1 )*RO_F*CP_F-K 1 -EPS(J 1 ))*RO_S*CP_S)* 
(-P(LUl)VDELT 

F(L1 >=-C(Ll J1 KA2*(P1+P2+P3+P4+P5+P6+P7) 

F(L2>=C(L2J1)-BC_L1 
END IF 
END IF 
END IF 


c this section computes the s matrix for grids inside of the column 

c 

ELSE 

c comp total molar adsorption 
RATE C=0 
DO mT=1.NC 

RATE C=RATE C+K_F(M 1 )* AINT* (Q(M 1 J J 1 )-C(M 1 +NC.J 1 )) 
END DO 

c compute total heat of adsorption 

RATE_C1(J J1 )=RATE_C*(1 -EPS(J1 )) 

RATE H«0 

C HEAT(2)=-(41 1.93585-57470^733*C(3.J1)/RO_S+3971259J2258» 

C . C(3Jl)**2/RO_S/RO_S)*44 

DOMl=l.NC 

RATE H*RATE_H+HEAT(M1)»K F(M1)»AINT»(Q(MUJ1)- 
C(M1+NCJ1)) 

END DO 

c this section copm s for the grids at the center of bed 
IF(Jl.EQ.l) THEN 
TOT_C=0. 

c comp molar density 
DOMl*lJMC-l 

A2=l 7(2 *D L(M1)/DELZ**2+S(L4JJ1 )/DELZ+4 * D_RF(M 1 V 
DR(J1 )/DR(Jl >f l./DELT) 

P1=D_UM1)/DELZ»*2*(S(MU-U1KS(M1J+U1)) 
P2=-s 7L4.J,J 1 )/(DELZ)*(-S(M 1 J-l . J1 )) 
P3=-ALF1(J1)*AINT*K_F(M1)*(Q(M1JJ1>-C(M1+NCJ1)) 



P4=4*D_RF(M1 )*(C(M 1 Jl+1 ))/DR(Jl )/DR(Jl ) 

P5*-(-P(MlJl ))/DELT 

F(M 1 >*-C(M 1J1 }+A2*(Pl +P2+P3+P4+P5) 

tot_c=tot_c+ccm ui) 

END DO 

F(NCMS(L5 J J 1 >TOT_C*R 1 *S(L1 J J 1 ))/Rl/S(Ll J J1 > 

. C(NCJl) 
c comp molar adsorption 
DOM1-LNC 

A2-17(K_F(M 1 )* AINT + 1 VDELT) 

F(M1+NC^-C(M1+NCJ1)+A2*(K_F(M1)*AINT*(Q(M1JJ1)>+ 

P(M 1 +NC J 1 VDELT) 

END DO 

c camp gas temperature 

IF(I_SOL_FLO.EQ. i )THEN 

A2»W(2*CON_L/DELZ**2+RO F*CP F*S(L4JJ1)/DELZ+ 
(RO_P*CP_FVDELT+4*CON RF/DR(J1)/DR(J1)) 
Pl*CON_L/DELZ**2*(S(LlJ-lrIl>+S(LlJ+lJl)) 
P2=-R0_F*CP_P*S(UJJ1)/(DELZ)*(-S(L1J-U1)) 

P3— <l-EPS(Jl))/EPS(Jir*H_FS»AINT»(C(LlJl)-C(L 2 Jl)) 
P4*-RO_F*CP_F*C(Ll J1 r (S(U,J+1J1 > 

S(L4J-1J1))/(2*DELZ) 

P5=4*C0N_RF*(C(L1J1+1 ))/DR(Jl )/DR(Jl ) 
P6=-R0_F*CP_F*(-P(L1J1))/DELT - 

F(L1 )=-C(LlJl KA2*(P1+P2+P3+P4+P5+P6) 
c comp solid t em pe ra ture 

A2= 1 7(2*CON_P/DELZ/DEL2+4 *CON_P/DR(J 1 )/DR( J 1 H 
RO_S*CP_S/DELT) 

P1-AINT*H_FS*(C(L1J1)-C(L2J1)) 

P2=-RATE_H 

P3*C0N_P*(S(L2J-1J1)+S(L2J+1 J1))/DELZ/DELZ 
P4-4"CON_P*(C(LZJl+l))/DR(Jl)/DR(Jl) 
P5=-RO_S*CP_S*(-P(L241)VDELT 
F(L2)»-C(L2J1 KA2*(P1+P2t-P3+P4+P5) 

ELSE 

c comp effective te mp e ra ture 

A2=U(EPS(Jl)»(2»CON_L/DELZ»*2+RO_F*CP F*S(UJJ1)/ 
DELZKEPS(J1 )*RO_F*CP_F+(l -EPS(J1 ))*RO S*CP SVDELT+ 
4*EPS(Jl)*CON_RF/DR(Jl )/DR(Jl )) 
Pl=EPS(Jl)*CON_L/DELZ**2*(S(LlJ-lJl>f-S(Ll,J+Ul)) 

P2=-EPS(J 1 )*RO_F*CP_F*S(L4,JJl )/(DELZ)«(-S(LU- 1J1)) 

P3=-(1-EPS(J1))*RATE H 

P4=-EPS(J 1 )*RO_F*CP_F*C(Ll J1 )*(S(L4 J+l J1 )- 

S(L4J-1J1))/(2*DELZ) 

P5-4*EPS(J1 r C0N_RF»(C(LU1 +1 ))/DR(Jl )/DR(Jl ) 

P6— <EPS(Jl)*RO_F»CP F+<l-EPS(Jl))*RO S»CP S)* 
(-P(L1J1))/DELT 

F(L1^-C(LU1HA2*(P1+P2+P3+P4+P5+P6) 

F(L2KC(L2J1)-BC_L1 
END IF 

c comp s for the grd at wall 

ELSE IF(J1 .EQ.NJR) THEN 
TOT.C-O. 
c comp molar density 
DOM1-1.NC-1 

A2= 1 7(2* D_L(M 1 )/DEL2* *2+S (L4 , J. J 1 )/DELZ+2*D RF(MiyDR(Jl) 
/DR(JlHliDELT) 

P1»D_L(M1)/DELZ«2*(S(MU-U1HS(MU+U1)) 

P2=-S(U J )/(DELZ)*(-S(M 1J-1J1 )) 

P3=-ALF1 (J1)*AINT*K_F(M 1 )*(Q(M 1 J J 1 )-C(M 1+NCJ1 )) 
P4=D_RF(M 1 )*RP(Jl )*(C(M 1,J1 - 1)-C(M1 J1 -1 ))/(2*DR(Jl» 

P5=2*D RF(Mir(C(MUl-l)VDR(Jl)/DR(Jl) 

P6— (-P(M1J1))/DELT 
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F(Ml>=-CfMl,Jl>+A2*(Pl+P2+P3-t-P4+P5-t-P6) 

TOT C=TOT_C+C(M 1 , J1 ) 

END DO 

F(NC)=(S(L5JJ1)-T0T_C*R1-S(LUJ1))/R1/S(L1JJ1)- 

C(NCJ1) 

c comp molar adsorption 
DO M1=1.NC 

A2=17(K_F(M 1 r AINT+1 7DELT) 

F(M1+NC)=-C(M 1 +NC J 1 )+A2* (K_F(M 1 )* AINT*(Q(M 1 , J.J 1 ))+ 
P(M1+NC J1 VDELT) 

END DO 

c comp gas temperature 

IF(I SOL_FLO.EQ.l)THEN 

A2=17(2*CON L/DELZ* *2+RO_F*CP_F*S(L4 JJ 1 )/DELZ+ 
(R0_F*CP_F)/DELT+2*C0N_RF/DR(J1VDR(J1)) 
Pl*CON_UDELZ»*2*(S(LU- U1 >+S(Ll J+l J1 )) 

P2=-RO F*CP_F*S(L4JJ1)/(DELZ)*(-S(L1 J-1J1)) 
P3=-<1-EPS(J1))/EPS(J1)*H_FS»AINT»(C(LU1)-C(L2J1)) 

P4=-RO F*CP_F»C(LlJir(S(U.J+l.Jl)- 
S(L4 J J1 ))/(DELZ) 

P5=CON RF*RP(J1)*(2.*H FW*DR(J1 )/CON_RF*(C(L3J 1 )- 
C(L1 J1 )))/(2*DR(J 1 )) 

P6=CON RF*(2*C(L1J1-1)+2*H_FW*DR(J1)/C0N_RF*(C(L3J1) 

. -C(L1 J1 )))/DR(Jl )/DR(Jl ) 

P7=-RO_F*CP F*(-P(L1J1)VDELT 
F(L1 >=-C(Ll,JrKA2*(Pl+P2+P3+P4+P5+P6+P7) 
c compute solid te m per a ture 

A2=U(2*CON P/DELZ/DELZ+2*CON_P/DR(J 1 )/DR( J1 )+ 

RO S*CP S/DELT) 

P1=AINT*H_FS , (C(L1J1)-C(L2J1)) 

P2=-RATE H 

P3=CON_P-(S(L2J-lJlKS(L2,J+Ul))/DELZDELZ 
P4=CON P*RP(J1 )*(C(L2J 1 - 1 }-C(L2J 1-1 ))/(2*DR( J1 )) 
P5=CON_P*(2*C(L2Jl-l)VDR(Jl )/DR(Jl ) 
P6=-R0_S*CP_S*(-P(L2J1)VDELT 
F(L2^-C(L2, J f)+A2*(Pl +P2+P3+P4+P5+P6) 

ELSE 

c compute effective temperaure 

A2=17(EPS(Jl)*(2*CON UDELZ**2+RO_F*CP_F*S(L4 JJ1)/ 
DELZWEPS(Jl)*RO F»CP_F+(l-EPS(Jl))*RO_S*CP_S)/DELT+2* 
EPS( J 1 )*CON_RF/DR(J 1 VDR(J 1 )) 
P1=EPS(J1)*C0N_L/DELZ**2*(S(L1 J-l J1)+S(L1J+1,J1)) 
P2=-EPS(Jl)*RO F*CP F*S(L4 J, J 1 )/(DELZ)*(-S(Ll J- 1 J 1 )) 
P3*-<1-EPS(J1))*RATE H 
P4=-EPS(J 1 )* RO_F*CP_F*C(Ll J 1 )* (S(L4 J+l J1 )- 
S(L4 JJ1 ))/(DELZ) 

P5=EPS(J1)»C0N_RF*RP(J1)*(2.*H FW*DR(JiyCON_RF* 

. (C(L3Jl)-C(Ll,Jl)))/(2*DRfJl)) 

P6=EPS(Jl)*CON_RF*(2*C(LlJl-lK2*H_FW*DR(JiyCON_RF* 
(C(L3 J1 )-C(Ll,Jl )))/DR( J 1 VDR(J 1 ) 

P7=-(EPS(Jl)*RO F*CP_F+<l-EPS(Jl))*RO_S*CP_S)* 
(-P(L1J1))/DELT 

F(L1 )=-C(LlJl )-t-A2*(Pl+P2+P3+P4+P5+P6+P7) 

F(L2)=C(L2J1)-BC_L1 

ENDIF 

c compute wall temperature 

F(L3)*-C(L3,Jl>t-DELT/RO_WA/CP WA*(A C*H FW*(C(LU1>- 
C(L3 J1 ))-A_ENS*H_OW*(C(L3 J 1 >-TO)M-P(L3 J1 )) 
c this section computes s for grids of constant size 
ELSE 

IF(J1J4EJR)THEN 

TOT_C=0. 

c com,, uie ...oia: oensity 
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DO M1*1,NC-1 

A2= 1 V(2*D_L(M 1 )/DELZ**2+S(L4 J J 1 )/DELZ+2.*D_RF(Ml V 
DR(J1 )/DR(Jl K 1./DELT) 

P1=D_L(M1)/DELZ**2»(S(MU-U1>+S(MU+U1)) 

P2=-S(L4,J.J1)/(DELZ)*(-S(MU-1,J1)) 

P3=-ALF1 (J1 )*AINT*K_F(M1)*(Q(M1JJ1)-C(M1+NCJ1)) 
P4=D_RF(M1)*RP(J1)*(C(MU1+1H:(MU1-1))/(2*DR(J1)) 
P5=D_RF(M 1 )*(C(M 1J 1+1 )+C(M 1 Jl - 1 ))/DR(J 1 VDR(J 1 ) 
P6=-{-P(MlJl))/DELT 

F(M1K-C(M1J1>+A2*(P1+P2+P3+P4+P5+P6) 

TOT C=TOT C+C(M1,J1) 

END DO 

F(NCWS(L5JJD-T0T_C*R1*S(LUJ1)VR1/S(LUJ1>- 

C(NCJ1) 

c comp the molar adsorption 
DOM1-1.NC 

A2»W(K F(MirAINT+17DELT) 

F(Ml+NC)=-C(Ml+NCJl>hA2*(K_F(Ml)*AINT*(Q(MlJJl))+ 

P(M1+NCJ1)/DELT) 

END DO 

c comp gas temperature 

IF(I SOL_FLO.EQ.l)THEN 

A2= 1 7(2*CON_L/DELZ**2+RO_F*CP_F*S(L4,JJl )/DELZ+ 

(RO F*CP F)/DELT +2*CON_RF/DR(J 1 VDR(J 1 )) 
Pl*CON_L/DELZ**2*(S(Ll J- 1 Jl )+S(Ll J+l Jl )) 
P2=-R0_F*CP_F*'S(14JJ1)/(DELZ)*(-S(L1J-1J1)) 
P3*-<1-EPS(J1)VEPS(J1)**H_FS»AINT*(C(LU1)-C(L2J1)) 

P4=-RO F*CP F-C(LlJir(S(U,J+Ul>- 
S (L4 J- 1 J 1 ))/(2* DELZ) 

P5-CON_RF»RP(Jl )*(C(L1J1+1)-CCLU1 -1)V(2*DR(J1 )) 

P6-C0N RP*(C(LlJl+l)+C(Ll.Jl-l)yDR(Jl)/DR(Jl) 

P7-RO F*CP_F*(-P(L1J1)VDELT 
F(L1)*-C(L1J1>+-A2*(P1+P2+P3+P4+P5+P6+P7) 
c comp solid temperature . 

A2*17(2*CON P/DELZ/DELZ+2*CON_P/DR(J 1 )/DR(Jl >+• 

RO S*CP S/DELT) 

P1»AINT»H_FS»(C(LU1 )-C(L2Jl)) 

P2=-RATE H 

P3*CON !*(S(L2J-1J1>*S(L2J+1J1))/DELZ/DELZ 
P4=CON P*RP(Jl)*(C(L2Jl-*-l)-C(LZJl-l))/(2*DR(Jl» 

P5-CON P*(C(L2J1+1>+C(L2J1-1))/DR(J1)/DR(J1) 

P6»-RO S*CP S*(-P(L2J1)VDELT 
F(L2)=-C(L2J 1 )+A2* (P 1 +P2+P3+P4+P5+P6) 

ELSE 

c compute effective temperature 

A2=U(EPS(J1)*(2*C0N L/DELZ«2+R0_F*CP_F»S(L4JJ1)/ 
DELZMEPS(Jl)*RO F*CP_F+(1-EPS(J 1 ))*RO_S»CP_S)/DELT+2» 
EPS(J 1 )*CON_RF/DR(J 1 VDR(J1 )) 
P1-EPS(J1)*C0N_UDELZ**2*(S(L1J-1J1)+S(L1J+U1)) 
P2»-EPS(J1)*R0_F*CP_F*S(L4JJ1)/(DELZ)*(-S(L1J-1J1)) 

P3— (l-EPS(Jl)rRATE_H 

P4»-EPS(J1)*R0_P*CP_F*C(L1J1)*(S(L4J+1J1)- 

S(L4J-1J1))/(2*DELZ) 

P5=EPS(J1)*C0N_RF*RP(J1)*(C(LU1+1)-C{LU1-I)y(2* 

DR(J1)) 

P6«EPS(J1 )*C0N_RF*(C(L1J1+1)+C(L1J1-1 ))/DR(Jl )/DR(Jl) 

P7=-(EPS(Jl)*RO_F»CP_F+a-EPS(Jl))*RO_S*CP_S)» 

(-P(L1J1))/DELT 

F(L1 >=-C(LlJl V-A2*(P1 +P2+P3+P4+P5+P6+P7) 

F(L2)=C(L2J1)-BC_L1 
END IF 

c this section computes s for van ale grid size 
ELSE 
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TOT_C=0. 
c comp molar density 
DOMl=l,NC-l 

A2=W(2*D_L(M1)/DELZ— 2+S(L4JJl VDELZ+Fl 1(J1 )-D_RF(Ml)* 
RP( J1 )/DR( J 1 )+2- D_RF(M 1 )*F 1 2(J 1 )/DR(J 1 )/DR( J 1 )+l 7DELT) 

P1=D L(Ml)/DELZ**2*(S(MlJ-t-lJl)+S(MlJ-lJl)) 

P2=-S(L4,JJ1 )/(DELZ)*(-S(M 1 J-l ,J1 )) 
P3*-ALF1(J1)*AINT*K_F(M1)*(Q(M1JJ1)-CCM1+NCJ1)) 
P4=D_RF(M 1 )-RP( J1 )*(F21 (J 1 )*C(M 1J 1 +1 )-F01 (J 1 )* 
C(M1J1-1))/(DR(J1)) 

P5=2-D_RF(M1 r (F22(J1 )• C(M 1. Jl+1 )+F02(Jl )*C(M 1 Jl-1 )) 
/DR(J1)/DR(J1) 

P6*-(-P(M 1 J1 ))/DELT 

F(M1 KC(M U1 KA2«(P1+P2+P3+P4+P5+P6) 

TOT C=T0T_C+C(M1,J1) 

END DO 

F(NCHS(L5JJD-T0T_C*R1*S(L1J41)VR1/S(LUJ1>- 

C(NCJ1) 

c comp molar adsorption 
DO M1=1,NC 

A2= 1 jTK_F(M 1 r AINT+ 1 ./DELT) 

F(Ml+NO-C(Ml+NCJlKA2*(K_F(Ml)»AINT*(Q(MUJl)H 
P(M 1 +NC J 1 yDELT) 

END DO 

c compute gas temperature 

Fa SOL FLO.EQ.l)THEN 

A2=1V(2*C0N L/DELZ"*2+R0_F*CP_F*(S(L4JJ1 VDELZ+ 

1 7DELT)+CON RF-RP(J1)*F1 l(Jl)/DR(Jl)+2-CON_RF- 
F12(J1)/DR(J1)T>R(J1)) 

Pl=CON_L/DELZ— 2*(S(Ll,J-t-lJl>t-S(Ll,J-lJl)) 

P2=-RO F-CP F»S(L4JJ1)/(DELZ)*(-S(LU-U1)) 
P3=-{1-EPS(J1))/EPS(J1)*H_FS*AINT*(C(L1J1)-C(L2J1)) 

P4=-R0 F-CP F*C(L1J1 )-(S(L4,J+l J1 y 
S0>U-U1))/(2*DELZ) 

P5*CON_RF* RP( J 1 )*(F21 (II rCO-Ul+1 )-F01 (J1 )• 
Ca.lJl-l)V(DR(Jl)) 

P6=2*CON RF*(F22(Jl)*C(LUl+l>+F02m)»C(LlJl-l))/ 
DR(J1)/DR(J1) 

P7=-RO F*CP F»(-P(L1J1))/DELT 
F(L1 ^-C(L1 Jl>t-A2* (PI +P2+P3+P4+P5+P6+P7) 
c compute solid temperature 

A2=U(2*CON P/DELZ/DELZ+C0N_P*RP(J1)*F11(J1)/DR(J1H 
2-CON P- F 1 2( J 1 )/DR( J 1 )/DR (J1 >+-RO_S *CP_S/DELT) 
Pl=MNT-H_FS*(C(LUl>Ca^Jl)) 

P2=-RATE H 

P3=CON_p7dEL 2/DELZ-(S(L2J- 1.J1 )+S(L2J+l J1 )) 

P4=CON_P-RP(Jl)*(F21(Jl)*C(L241+l)- 

F01 (J1 )-C(LZJl - 1)V(DR(J1 )) 

P5=2-C0N_P-(F22(J1 )*C(L2J1+1)+F02(J1 ) 
•C(L2J1-1))/DR(J1)/DR(J1) 

P6=-RO_S*CP_S-(-P(L2J 1 )VDELT 
F(L2>=-C(L241)+A2*(P1+P2+P3+P4+P5+P6) 

ELSE 

c compute effective temperature 

A2= 1 7(EPS(J 1 )*(2*CON_L/DELZ— 2+RO_F-CP_F*S(L4JJ 1 )/ 
DELZ>+<EPS(Jl)-RO_F*CP_F-Kl-EPS(Jl))*RO_S-CP_S)/DELT+ 
EPS(Jl)-CON RF-(RP(Jl)-Fll(Jl)/DR(Jl>+2-F12(Jl)/DR(Jl) 

. /DR(J1))) 

P1=EPS(J1 )*CON L/DELZ**2*(S(L1J+U1KS(LU-U1)) 

P2*-EPS(Jl)*RO_F*CP_F»S(L4J,Jl)/(DELZ)-(-S(LlJ-lJl)) 

P3=-(1-EPS(J1))*RATE_H 

P4=-EPS(J1)-R0_F*CP_F*C(L1J1)*(S(L4J+1J1)- 
. S(L4J-lJl))/(2-DELZ) 

P5=EPS(J1)*CON_RF*RP(J1)-(F21(J1)*C(L1J1+1)-F01(J1)* 
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C(L1J1-1))/(DR(J1)) 

P6=2*EPS(J1)*CON_RF*(F22(J1)*C(L1,J1+1)+F02(J1)* 

C(L1J1-1))/DR(J1)/DR(J1) 

P7=-(EPS(J1 )*RO_F*CP_F+( 1 -EPS(J 1))*R0_S*CP_S)* 
(-P(L1J1))/DELT 

F(L1 )=-C(LUl KA2*(P1+P2+P3+P4+P5+P6+P7) 

F(L2)*C(L2J1 )-BC_Ll 
END IF 
END IF 
END IF 
END IF 
RETURN 
END 


c this subroutine compute the amount of adsorbed gas in equilibrium with gas 
c molar density, for single componet uses Langmuir-fredrich isotherm, the 
c compulsion of equlibniim for multi component uses the Ideal Solution Theory 
c (1ST), since the equations are none linear and implicit,! numeriacl method 
c was used to compute the adsorbed equlibniim amount, the method is by Forythe, 
c Computer Methods for Mathematical Computation, it is an bisect method with 
c quadratic convergence, 
c 

c B.V.PO arrays are sinie equlibrum constant 

SUBROUTINE IST_Z1(METH0D,T,SS,Q1) 

IMPLICIT REAL*8 (A-H.O-Z) 

COMMON/EQUB/PP(4)3(4),V(4),PO(4)J>I(4XXI(4)JCl(4).Yl(4) 

COMMON/INDICl/IND<4) 

COMMON/NCY/NC1 
REAL"8 Q1(4),SS(4) 

INTEGER LNUM 
EXTERNAL FCN1 

DATA XTOLFTOLXNUMA.0E-5,1.0E-5.0^0/ 

DATA RJSS5/ 

T G»T 
NC=NC1 

c the partial pressure 
DO 11=1 J4C 

Yiai>-ssai) 

END DO 
DOI-1J4C 
PP(D=Y1(I)T G*R 
END DO 

c no mole fration return 
Z-1.0E-32 

IF(PP(1 )J-EZ^ND.PP(2).LEXAND.PP(3 )XE.ZAND.PP(4).LE2)THEN 
DOI-1.NC 
Ql(D-0. 

END DO 
RETURN 
END IF 
Nl-1 

c set the constant as a function of temperature 
IF(IND(1)£Q.1)THEN 

C V(N1H81^983138-.2U18560043*T+1^8T732293D-4*T*TV44/100 
V(N1>«17.0/44A00 

C B(N1)-6864.9000131*EXP(-.01962S791466*T) 

B(N1^5323235056e-6"T**(-^)*EXP(13948344244/1.987/T) 

PCKN1M 
N1=N1+1 
END IF 
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IF(IND(2)£Q.2)THEN 
V(N1 >=1769.035 

B(N1 >= 1 .879094E-4*EXP(5467 .48 1 7024/T) 
IF(TX,T.610.) THEN 

B(N 1 )=4.5597278759E-7*EXP(9628 .9655743/T) 

ELSE 

B(N 1 )=5.8089066684E-7*EXP(9 1 15.734593/T) 

END IF 
N1=N1+1 

PO(N1M‘0 
END IF 

IF(IND(3).EQ.1)THEN 
V(N 1 )=- 1 .637879912E-5*T+.0096 1297026 
IF(T .LEf 32)THEN 

B(N1)=3.2694515539E-7*Th-4.59988799E-4 

ELSE 

B(N1)=7 .90864008E-5*T-4. 1440W20E-2 
END IF 

PCXN1M.0 
N1=N1+1 
END IF 

IF(IND(4)XQ.1)THEN 
V(N1)=- 1 ,637879912E-5*T+.0096 1297026 
IF(T1£^32)THEN 

BfNl)=3.2694515539E-7*T+4.59988799E4 

ELSE 

B(N 1 )=7.90864008E-5*T4. 14400420E-2 
END IF 

PO(N1)=LO 
END IF 

c calculate the equilibrium is tho therm by Langmuir method 
IF(NCEQ.1)THEN 

QKD=v(i)*B(i)*pp(ir*FO(i)/(i+B(irpp(ir*po(i)) 

RETURN 

ELSE IF(NC.EQJ2 AND. PP(1).EQ.0)THEN 
Ql(2)=V(2)*B(2)*PP(2)**PO(2)/(l+B(2)*PP(2)**PO(2)) 

QK1H) 

RETURN 

ELSEIF(NCEQ4 AND. PP(2).EQ.0)THEN 
Ql(D=V(irB(l)*PP(l)**PO(l)/(l+B(irPP(l)**PCXl)) 
Q1(2W> 

RETURN 
END IF 
TERM 1=0. 

DO I=1*NC 
IF(PP(I).GT.0)THEN 
TERMl=B(I)*PP(I)**PO(I>+TERMl 
END IF 
END DO 
SUM=0. 

DO 1=1 JVC 
IF(PP<I).LE.O.) THEN 

q«ih>- 

ELSE 

Qia>=v(D*Ba)*ppar*poav(i+TERMi) 

S T JM=SUM+Q1(I) 

END IF 
END DO 

c if the Langmuir method is asked for then returned 
IF(METHOD.EQ. 1 )THEN 
RETURN 
END IF 

c if not, take the result as the first guess for 1ST theory 

do:=:,nc 
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xkd-qkd/sum 

IF(Xl(P.GT.O) THEN 

pku-ppcd/xkd 

ELSE 

PI(I)=0. 

END IF 
END DO 

c calculate the spread pressure 
DOI-1.NC 
IF(PP(I).LE.O.) THEN 
X1<IH> 

ELSE 

xia)=vavpoa)*LOGa+Ba)*piar*poa)) 

IF*I 
END IF 
END DO 
X=X1(IF) 

DO 1=1 .NC 

IF(Xia).LT.X AND. X 1 (I).GT.0)THEN 
X=X1(D 
END IF 
END DO 
AX-X 
DELX=AX 
BX*AX 

c call Zeroin subroutine to find the rout to the 1ST equation 
DO 1=1.100 
BX-BX+DELX 
FUN=FCN1(BX) 

IF(FUNXT.O)GO TO 1 13 
END DO 

113 X=ZEROIN(FCNlAX3X.TOL) 
c rout was found 
DOI-1.NC 
IF(PP(I).LE.O) THEN 
PPa>-1.0E-32 
END IF 

c calculate the fraction in the solid phase 
PARTI =POfl)*X/V (I) 

IF(P ART1 .GT.73 )PART1 =73 
PI(IMEXP(PART1 )- 1)/B(D 

xi(D=ppa)/pia) 

END DO 
TOT_Q=0 

c calculate die total amount adsorbed 
DOI-1.NC 

Qi(iyvarB(D*piar*poay(i+B(i>*pi(D M PO(D) 

TOT_Q=TOT_Q+X 1 (iyQl (I) 

END DO 

c calculate the amount adsorbed for each co m ponent 
DO 1=1 .NC 

Ql(I)=l/rOT_Q*Xia) 

END DO 
80 RETURN 
END 

c 1ST function 

REAL FUNCTION FCN1(X) 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON/EQLIB/PP(4),B(4),V(4),PO<4) 

COMMON/NCY/NCl 

NC=NC1 

SUM=0. 

DO 1=1 .NC 
IF(PP(I).GT.O) THEN 
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PARTI =PO(I)*X/V(T) 

IF(PART1 .GT.73)PART1=73 
SUM=SUM+PP(I)/((EXP(PART1)-1 )/B(R)**(l 7P0(D) 
END IF 

C IF(PPff).LE.0)PP(I>= 1 -0E-32 

C PARTI =PO(I)*X/V(I) 

C IFCPART 1 .GT.73 )PART 1 =73 

C SUM=SUM+PPa)/((EXP(PARTl)-l)/B(Dr*(iyPOa)) 

END DO 
FCN1=SUM-1 
RETURN 
END 


c subroutine to find the root of equation by bisect method 

REAL FUNCTION ZEROIN(FCN 1 AX*BX,TOL) 
IMPUCIT REAL*8(A-H,0-Z) 

REAL* 8 AX3X.FCNLTOL 

REAL*8 A3,CJDX,EPS,FA,FB,FC,TOLl*XM t P t Q,R,S 
EPS=1.0 

10 EPS=EPS/2. 

TOLl=l.C^EPS 
IF(TOLLGT.LO) GO TO 10 
c initialization 
A=AX 
B=BX 

FA=FCN1(A) 

FB=FCN1(B) 
c begin step 
20 C=A 
FC=FA 
D=B-A 
E=D 

30 IF(ABS(FC) .GE. ABS(FB)) GO TO 40 
A=B 
B=C 
C=A 
FA=FB 
FB=FC 
FC=FA 

c convergence test 

40 TOLl=l*EPS*ABS(BK^*TOL 
XM=J*(C-B) 

IF(ABS(XM).LE.TOLl)GO TO 90 
IF(FB JEQ.0.0) GO TO 90 
c is bisection necessary 

IF(ABS(E) J-E.TOL1 )GO TO 70 
IF(ABS(FA)J-EABS(FB)) GO TO 70 
c is quaratic interpoiatation possible 
F(AJ*E.C)GOTO50 
c linear interpolation 
S=FB/FA 
P=2.0*XM*S 
Q=;,0-S 
GO TO 60 

c inverse quadratic interpellation 
50 Q=FA/FC 
R=FB/FC 
S=FB/FA 

P=S*(2.*XM*Q*(Q-R}-(B-A)*(R-1.0)) 

Q=(Q-1.0)*(R-1.0)-(S.1.0> 
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c adjust signs 
60 IF(P.GT.0.0)Q*-Q 

P=ABS(P) 

c is interpolation acceptable 

IF((2.0*P).GE.(3.*XM*Q-ABS(TOL1 *Q))) GO TO 70 
IF(P.GEABS(J*E*Q)) GO TO 70 
E=D 
D=P/Q 
GO TO 80 
c bisection 
70 D-XM 
E»D 

c complete step 
80 A*B 
FA-FB 

IF( ABS(D).GT.TOLl )B*B+D 

IF(ABS(D)JLJLTOLl)B*B+SIGN(TOLl*XM) 

FB»FCN(B) 

IF((FB*(FC/ABS(FC))).GT.0)GO TO 20 
GO TO 30 
c done 

90 ZEROIN-B 
RETURN 
END 


c the second method, this method is faster but the initial guess must be near 
c the root of the equation, 
c 

c this subroutine compute the amount of adsorbed gas in equilibrium with gas 
c molar density, for single componet uses Langmuir- fredrich isotherm, the 
c compulsion of equlibnnm for multi component uses the Ideal Solution Theory 
c (1ST), since the equations are none linear and implicit^ numeriacl method 
c was used to compute the adsorbed equlibruim amount, the method is Newton, 
c 

c B,V,PO arrays are sink equlibrum constant 
SUBROUTINE IST^ZWETHODXSS.Ql ) 

IMPLICIT REAL*8 (A-RO-Z) 

COMMON/EQUB/PP(4)3(4),V(4)J>CK4)J > I(4XXI(4XXl(4),Yl(4) 

COMMON/NCY/NC1 

COMMON/INDIC 1 /IND(4 ) 

REAL*8 Q1(4XSS(4) 

INTEGER LNUM 

EXTERNAL FCN.FDER 

DATA XTOL.FTOL1NLIM/1 .0E-5, 1 .OE-5,0,50/ 

DATA R/555.0/ 

T G*T 
NC-NC1 
DO I1-1J4C 

Yiai)=ssai) 

END DO 
DO I-1JVC 
PP(D=Y1(I)*T G*R 
END DO 

c no mole fration return 
Z-i 0E-32 

IF(PP(l).LRZ-AND.PP(2).LE^AND.PP(3)J-E^j\NDPP(4)JLEZ)THEN 
DO 1*1 JVC 
Q1(I)=0. 

END DO 
RETURN 
END IF 
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Nl«l 

c set the constant as a function of temperature 
IF(IND(1)£Q.1)THEN 
c 13x by 1, grace 

c poiiu=*-1567.1205874+9 .00256903*1- .0172347*t*t+1.100806e-5*t*t*t 
c if(pp(nl).gLpoint.or. t.gt.627)then 

c V(N1M8 1.2983 138- 31 11 8560043 *T+1387732293D-4*T*T)/44/l 00 

c B(N1 >*=6864.9000131 *EXP(-.0 1962579 1466*T) 

c po(nl)=1.0 

c else 
c 13x by Lf.grace 
c v(nl >=2332228/44/100 

* c b(nl)®4-9639763e-4*T**(-.5)*exp(923333778/1.987/T) 

c po(nl >=-2.9 1 3899 1288+.0 1 7 1 8 1 76 1 1 78 *T-2.8549083257e-5 *T*T+ 

c . 1.622511757e-8*T*T*T 
c end if 
c from Finn data 5A 
c if(pp<nl ).lL 1 .0) then 

C b(Nl H370223 97e-6*t** (- .5 )*exp( 14907. 6535/1 -987A) 

C v(N 1 )= 1 6.6/44/1 00 

C po(Nl)=.80 

c Finn by langmuir 
c else 

c v(nl H25.97135008-6.0845 1 8e-3 *T-2.1 7995 1 6646e-5*T*T)/44/100 

c b(nl>=L88863393e-5*T**(-3)*exp(12170.875335/1.987yD 

c po(nlH- 

c end if 

C 5A BY GRACE, BY LJF 
c V(NlH7.0/100/44 

c B(N1)=2341477E-4*T**(-.5)*EXP(10257.166145/1.987/T) 

c PO(N 1 W3 .8304501 1 1 E4*T** 1 . 1 88379596 

C 5A BY GRACE, BY L 

C V(NlH4.27886889+.087218022*T-9.10107l5804E-5*T*T)/44/100 

C B(N1>=93533309123E-5*T**(-.5)*EXP(10719.0/1.987/T) 

C PO(Nl)=l. 

C 5A BY GRACE; B Y L F BETWEEN 0-75 C 

V(N1M399 .3942-1. 938428896*T+3.25405 15E-3*T*T- 
. 1 .822621 1 899E-6*T*T*T)/44/l 00 
B(N1 >=35358072159 -.1701 6733 *T+2.7458762E-4*T*T- 

. 1.48411 603 5E-7*T** 3 

PO(Nl >=-29386 1079+. 153 8898497 *T-2.61 225877E-4*T*T+ 

. 1 .478 1 84694£-7*T* * 3 
c linde 5a 
c v(nl)=.005 

c b(nl>= 1.1 29015 193e-5*exp(5055.015089A) 

c po(nl>=.6 

N1=N1+1 
END IF 

c h2o on 5a by grace U 
IF(IND(2)£Q.1)THEN 

C IND(l)-EQ.l FOR C02+H20+N2; IND(1).EQ.0 FOR H20+N2 
C IF{IND( 1 ).EQ. 1 )THEN 

if(pp(nl)Jt 4) then 
if(Lle-564.)then 

v(nl H39 .91 4452-8.87 1 03e-2* t+6.839502987e-5*t*t)/100/l 8 
else 

v(nlH873.44464-3.867834937*t+5.80375049e-3*t*t- 

2.9346685e-6*t*t*t)/100/18 
end if 

b(nl >=29690.66923- 137. 837129*T+3 14456 126*t*t 
po(nl)=l 
else 

b(nl >=4836663977 1 -2362023 99 75 e- 1 *t+3 .91017031 68e4*t*t- 
. 2379098497 e-7*r*t*t 
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v(nlM95.093824733-.2l725775358*t+1.4628603e-4*t*tyi00/18 
po(nl)=l 
end if 
C ELSE 

CC h2o on St grace by LF 

C b(nl)=24.573259-5.8385278e-2*t+3.473682438e-5*t*t 
C v(nl)*(66.62520167-. 12299345*1+7. 1897316221e-5*t*t)/l 00/18 

C if(t.le.600)then 

C po(nl>=.8219916486-33519986e-3*t+4.679276479e-6*t*t 

C else 

C po(nl K6.0926707634+Z043004e-2*t-Z924858439e-5*t*t+ 

C . 1.1746734108e-8*t*t*t 

C end if 

C END IF 

C b(nlH2247292664*t**(-.S)*exp(7858.45996/1.987A) 

C v(nlW172-54468-.66643613*t+9.758449e-4*t*t-4.986888e- 
C . 7*t*t*t)/18fl00 
C po(nl)=l. 

N1=N1+1 
END IF 

IF(IND(3)PQ.1)THEN 
V(N1>=-1.637879912E-5*T+.00961297026 
C IF(TiEJ32)THEN 

B(N 1 )=3 .26945 15539E-7*T+4 J9988799E-4 
C ELSE 

C B(Nl)=7.90864008E-5*T-4.14400420E-2 

C END IF 

PCKNl^l.0 
Nl-Nl+1 
END IF 

IF(IND(4)PQ.1)THEN 

V(N1K1.637879912E-5*T+.00961297026 

IF(T1£J32)THEN 

B(N1)«3.2694515539E-7*T-n*.59988799E4 

ELSE 

B(N1 )=7.90864008E-5*T -4. 14400420E-2 
END IF 

PO(N1>=1.0 
END IF 

IF(NC.EQ.l )THEN 

QKi>«v(i)*B(irpp(ir*po(i)/(i+B(i)*pp(ir*po(i)) 

RETURN 

ELSE IF(NC.EQ.2 .AND. PP(1).EQ.0)THEN 
Ql(2)=V(2)*B(2)*PP(2)**PO(2)/(l+B(2)*PP(2)**PO(2)) 

Ql<l)-0 

RETURN 

ELSE IF(NC.EQ.2 .AND. PP(2).EQ.0)THEN 

Qi(D-v(i)*B(irpp(ir*pcxi)/(i+B(irpp(ir*PO(i)) 

Q1(2H) 

RETURN 

ELSE IF(NC.EQjyTHEN 
if(pp(l)Je.O .and. pp(2).k.0)then 

Ql(3)=V(3)*B(3)*PP(3)**PO(3y(l+B(3)*PP(3)**PO(3)) 

Q1(1M> 

Ql(2>-0 

return 

else if(pp(l)Je.O .and. pp(3).le.0)then 
Ql(2)=V(2)*B(2)*PP(2)**PO(2)/(l+B(2)*PP(2)**PO(2)) 
Ql(l)*0 
Q1(3H) 
return 

else if(pp(2)Je.O .and. pp(3).le.0)then 
Ql(l)=V(l)*B(l)*PP(l)**PO(l)/(l+B(l)*PP(l)**PO(l)) 
Ql(2)=0 
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Ql(3)=0 
return 
end if 
END IF 
TERM 1=0. 

c calculate the equilibrium by Langmuir isotherm 
DOI=l.NC 
IF(PP(I).GT.0)THEN 
TERM1=B(I)*PP(I)**P0(I)+TERM1 
END IF 
END DO 
SUM=0. 

DO 1=1 *NC 
IF(PP(I)J-E.O.) THEN 
Q1(I)=0. 

ELSE 

01 awv(i)*B(i>*ppa>**po<iy(i +termi ) 

SUM=SUM-hQ1(I) 

END IF 
END DO 

c if the Langmuir method is asked foR, then return. If not use it as first guess 
c for 1ST theory 

IF (METHOD JEQ. 1)THEN 
RETURN 
END IF 
DOI=lJ^C 
Xl(D=Ql(iySUM 
IF(X1(I).GT.0) THEN 
PI(I)»PP(iyXl(D 
ELSE 

pia>=o. 

END IF 
END DO 

c set the initial guess for the spreading pressure 
DOI=l*NC 
IF(PP(I)JLE.O.) THEN 

xia>=o 

ELSE 

xia>=vaypo(D*LOG(i+B(D*piar*poa)) 

IF=I 
END IF 
END DO 
X=X1(IF) 

DOI=£NC 

IF(X1(I).LTX AND. Xia).GT.O)THEN 
X=X1(I) 

END IF 
END DO 

c call newton method to the rout to 1ST equation 
IF(X IE. 1.0E-17) GO TO 80 
CALL NEWTN(FCN,FDERJC,XTOL,FTOL>NLIMJ) 
c rout was found, calculate the fraction in the solid phase 
DO 1=1 .NC 
IF(PP(I).LE.O) THEN 
XIOM). 

ELSE 

PARTI =PO(I>*X/V(I) 

IF(PART1 .GT.73 )PART1 =73 

PiaKEXP(PARTlH)/B(D 

Xia>=PP(D/PI(I) 

END IF 
END DO 

c calculate the total amound in the solid phase 
TOT_Q=0 
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DO 1=1 J^C 
IF(PP(I).LE.O) THEN 
Q1(I>=0. 

ELSE 

Qia>-va)*Ba)*pi(D**po(D/(i+Ba)*pi(D**po(D) 
TOT_Q=TOT_Q+Xl(iyQl(D 
END IF 
END DO 

c calculate the amount in equilibrium with the gas phase for each component 
DOI-1.NC 

Ql(I)«l/rOT_Q*Xl(I) 

END DO 
80 RETURN 
END 


c 1ST final equation 

c 

REAL FUNCTION FCN(X) 

IMPLICIT REAL*8(A-RO-Z) 

COMMON/EQUB/PP(4XB(4),V(4).PO(4) 

COMMON/NCY /NCI 

NC-NC1 

SUM-0. 

DOI=lNC 
IF(PP(1).GT.0) THEN 
PARTl«PO(irX/V(I) 

IF(PART1.GT.73)PART1=73 
SUM=SUM+PP(I)/((EXP(PART1 >-l )/B® )**(1 7PO(D) 
END IF 
END DO 
FCN-SUM-1 
RETURN 
END 
c 

c 1ST final doivitive 
c 

REAL FUNCTION FDER(X) 

IMPLICIT REAL*8(A-RO-Z) 

COMMON/EQUB/PP(4)3(4).V(4),PO(4) 

COMMON/NCY/NC1 

NC-NC1 

SUM-0. 

DO 1=1 J4C 
IF(PP(I).GT.0) THEN 
PART3-POd)*X/Va) 

IF(PART3L.T35)THEN 
PARTl--PP(I)/B(iyV(I)*EXP(PART3) 
PART2»((EXP(PART3)-l)/B(D)**((l+FO(DyPO(I)) 
SUM-SUM+P ARTI/P ART2 
ELSE IF(PART3/PO(I).LT.73)THEN 
SUM«SUM-B(D**((l+POa))/PO(D)*PP(iyB(D/V(ir 
EXP(-PART3/POa» 

ELSE 

PART3-73 

SUM*SUM-B(D**((l+PO(I))/PO(D)*PP(I)/B(D/V(D* 

EXP(-PART3) 

END IF 
END IF 
END DO 
FDER-SUM 
RETURN 
END 


c 
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c 

c this subroutine finds the rout to & nonlinear equation using the Newton 
c method 

SUBROUTINE NEWTN(FCN,FDERXXTOL,FTOLNLIMJ) 
IMPLICIT REAL* 8( A-H,0-Z) 

INTEGER NLIMJJ 
FX=FCN(X) 

X1=X 

DO J=1*NLIM 
DELX=FX/FDER(X) 

X=X-DELX 

FX*FCN(X) 

IF (ABS(X-Xl)/X.LEJCTOL)THEN 
RETURN 
END IF 

IF(FX.NEO)THEN 

IF(ABS(FX-FX1)/FX.LEFT0L) THEN 
RETURN 
END IF 
END IF 
Xi=X 
FX1=FX 
END DO 
I=-l 

PRINT 200, NUMXFX 

200 FORMAT(/TOLERANCE NOT MET 1 J4,' ITERATIONS X= 7 
2 E12.5/ F(X)=\E12.5) 

RETURN 

END 


FUNCTION CPGAS(TEM,Y) 

C THIS FUNCTION CALCULATES THE HEAT CAPACITIES OF CMRIER GAS IN BTU/#MOLE/R 
IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 A(4)*B(4),C(4) J)(4), Y(4) 

COMMON/G AS/INERT JNCOMP 
COMMON/NCY/NC1 
COMMON/INDIC 1/IND(4 ) 

CC02 

DATA A06.1U3.46,29.*29.1/ 

CH20 

DATA B/4^33E-2 t .6880E-2,^199E-2,1.158E-2/ 

CN2 

DATA C/-2.887E-5,.76O4E-5,.5723E-5,-.6076E-5/ 

C 02 

DATA D/7.464E-9,-3.593E-9 t -2.871E-9,1311E-9/ 

NC=NC1 

T=TEM/1 .8-273.15 
IF (INERTEQ.l) THEN 
CPGAS=0. 

YO=0. 

Nl=l 
DO 1*1,4 

IF(IND(DXQ.1)THEN 
CP=A(I)4E(I)*T^(I)*T*T+D(I)*T*T*T 
CPG AS=CP* Y(N 1 )/4 . 1 8669+CPG AS 
YO=Y(NlHYO 
N1=N1+1 
END IF 
END DO 

CPG AS=CPG AS+{ A(3^BC3 )*T+C(3)*T*T+D(3 )*T*T*T)* ( 1 - YO)/4. 1 8669 
ELSE 

CPG AS =4 .97 
ENDIF 
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RETURN 

END 

FUNCTION CPS (TEMP) 

IMPLICIT REAL* 8( A-H.O-Z) 

C THIS FUNCTION CALCULATES TNE HEAT CAPACITY 
CBTU/LB/R. 

CPS- 1.0 

RETURN 

END 

REAL FUNCTION KGAS (TEMP) 

C THIS FUNCTION CALCULATES THE THERMAL CONDUCnVTTY OF CARRIER. 

C BTU/MIN/FT/R 

IMPLICIT REAL*8(A-RO-Z) 

COMMON/GAS/INERT J*JCOMP 
IF (INERT.EQ.1) THEN 
KGAS-3.88E-7TEMP40.4052E-4 
ELSE 

KGAS=1.667E-6*TEMP+6.1E-4 

ENDIF 

RETURN 

END 

FUNCTION RE (G.TEMP) 

C TNIS FUNCTION CALCULATES THE PARICLE REYNOLDS NUMBER ASSUMINC THAT 
C THE MOLECULAR WEIGHT OF TNE GAS IS EQUAL TO THAT OF CARRIER GAS 
IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 LENJtfW 

COMMON/PRIME/GNZRA.RA V ^ PSEX.RHOS.TAMB ALPHAl.UINS JHW ALLLEN 
C COMMON/PRIME/GN2.RA,RAV.EPSEX.EPSIN,ALF,RHOS.ALPHAl 
COMM ON/G AS /INERT J4COMP 
DATA IFLAG/0/ 

IF (INERT.EQ.1) MW-28.0 ' 

IF (INERT.EQ.2) MW-4. 

IF (IFLAG.EQ.0)THEN 
CONST-2.*RA 
IFLAG-1 
ENDIF 

RE-CONST* MW»ABS(GVVIS (TEMP) 

RETURN 

END 

FUNCTION VIS (TEMP) 

IMPLICIT REAL*8(A-H.O-2J) 

CTHIS FUNCTION CALCULATES THE VISCOSITY OF CARRIER GAS AS A FUNCTION 
C OF TEMPERATURE (LB/MIN/FT). 

COMMON/G AS /INERT .N COMP 
IF (INERT.EQ.1) THEN 
C VIS*1.0E-6*TEMP+1.65E-4 

VIS— .0102007812+5.384663937E-5*TEMP-8.7973727E-8*TEMP*TEMP+ 

2 4.811387495E-11*TEMP*TEMP*TEMP 

ELSE 

VIS-0.9444 E-6*TEMP+2.863E-4 
ENDIF 
RETURN 
END 

FUNCTION RHOG(TRJ>) 

IMPLICIT REAL*8(A-H.O-Z) 

REAL*8 LEN 

C THIS FUNCTION CALCULATES THE MOLAR DENSITY OF AN IDEAL GAS IN 
CLBMOLES/CVFS. 

COMMON/PRIME/GN2JlA,RAV,EPSEX,RHOS,TAMB.ALPHALUINS.HWALLLEN 
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DATA KI555.I 
RHOG=P/R/TR 
RETURN 
END 

FUNCTION EFFD(ICOMP,G,TEMP,RHO.PT,YO) 

C THIS FUNCTION CALCULATES TNE EFFECTIVE AXIAL DIFFUSIVITIES IN A PACXED BED 
C USING THE EDWARDS AND RICHARDSON CORROLATION. (FT*FT/MIN) 

IMPUCIT REAL*8(A-H,0-Z) 

REAL* 8 LAMBDA l.LAMBDA2XEN,YO<4) 

COMMON/PRIME/GN2,RAjRAV,EPSEX,RHOSTAMBALPHAl,UINS.HWALLLEN 

DATA IFLAG/0/LAMBDA1/0.73/ 

IF(IFLAG.EQ.O)THEN 

CONST=2*RA/EPSEX 

IFLAG=1 

ENDIF 

DIF=DIFF(ICOMP,TEMP.PT,YO) 

EFFD=LAMBDAl*DIF+CONST*ABS(G)*LAM3DA2(GJ3IFJlHO)/RHO 

RETURN 

END 

FUNCTION EFFK(G,T.CP,RHO,P.YO) 

IMPUCIT REAL*8(A-H,0-Z) 

C THIS FUNCTION CALCULATES THE EFFECTIVE AXIAL THERMAL CONDUCTIVITY OF A 
C PACKED BED IN BTU/FT/MIN/F. 

COMMON/NCY/NC1 
REAL*8 YO(4) 

NC=NC1 

EFFK=0. 

KK=0 

DO I1=1NC 

SUM=CP*RHO*EFFD(I l.G.T .RHO.P, YO) 

IF(SUM.GT.0)KK=KK+1 
EFFK=S UM+EFFK 
END DO 
EFFK=EFFK/KK 
RETURN 
END 

REAL FUNCTION LAMBDA2(G,DIF.RHO) 

CTHIS FUNCTION CALCULATES THE DIMENSTONLESS PARAMETER OF THE EDWARDS AND 
C RICHARDS CORROLATION MODIFIED FOR SMALL DIAMETER PARTICLES. 

IMPUCIT REAL*8(A-H,0-Z) 

REAL*8 LEN 
DATA IFLAG/0/ 

COMMON/PRIME/GN2,RA,RAVEPSEX,RHOS.TAMBALPHA1,UINS.HWALLXEN 

IF(IFLAG.EQ.O)THEN 

IF(RAGT.0.00492)THEN 

PE-2. 

ELSE 

PE=406.4*RA 

ENDIF 

CONST=2.*RA/EPSEX 

IFLAG=1 

ENDIF 

LAMBDA2=17PE/(l.+9J*DIF/CONST/ABS(G)*RHO) 

RETURN 

END 


FUNCTION DIFF(ICOMP,TEM.Pl , Y O) ^ T , T1T ._ VT _ 

C THIS FUNCTION CALCULATES THE MOLECULAR DIFFUSION COEFFICIENTS BY CORRECTING 
C FOR PRESSURE AND TEMPERATURE (FT*FT/MIN). 
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IMPLICIT REAL*8(A-H,0-Z) 

REAL-8 LEN,YO<4),Vl(4)JVfWl(4),V(4)>fW(4),DIF(4) 

COMMON/GAS/INERT.NCOMP 

COMMON/NC Y/NC 1 

COMMON/INDICl/IND(4) 

COMMON/PRIME/GN2JlAJUV > EPSEX,RHOS.TAMB^LPHALUINSJIWALL,LEN 
DATA Vl/26.9,12.7,17.9,16.6/ 

DATA MW1/44.01 , 1 8.01 6,28.0 1331 .999/ 

NC-NC1 

K-ICOMP 

P=Pl/760. 

T-TEM/1.8 
Nl«l 
DO 11*1,4 

IF(IND(I1)EQ.1)THEN 

MW(N1)*MW1(I1) 

V(N1)«V1(I1) 

N1=N1+1 
END IF 
END DO 
DO I=I.NC 
IF(NC.EQ.l) THEN 
MW(I)=MW(K) 

Va>=V(K) 

END IF 

PARTI »((MW(K)+MW(I)VMW(K)/MW(I))**i 
PART2*(V(K)-- (1J3)+V(I)— (1J3))— 2 
DIF(D*PART1/PART2-T— 1.75/P- 1 .OE-3 
END DO 

IF(NC.EQ.l TTHEN 
DIFF»DIF(1)*3.8745 
RETURN 
END IF 

IF(NC.EQ^)THEN 
IFQLEQ. 1 )DIFF*DIF(2)-3 .8745 
EF(KEQ.2)DIFF«DIF(1 )-3.8745 
RETURN 
END IF 
DO 1=1. NC 
IF(I.NEJC)THEN 
SUM=SUM+YOaVDIF(D 
END IF 
END DO 
if(sumjie.O) then 
DIFF=(l-YO(K))/SUM*3.8745 
else 
diff=l 
endif 
RETURN 
END 


FUNCTION HFILM(MW,TEMP.REY,CP) 

C THIS FUNCTION CALCULATES THE FLUID FILM HEAT TRANSFER COEFFICIENT 
C IN BTU/SQ FT/MIN/R USING THE CORRELATION OF PETROY AND THODOS. 
IMPLICIT REAL-8(A-H£>-Z) 

REAL-8 IDJCG AS JCG XEN.MW 

COMMON/PRIME/GN2JIAJIA V.EPSEX.RHOS ,TAMB ALPHA 1 ,UINS.HWALL,LEN 

COMMON/GAS /INERT J4COMP 

KG*KGAS(TEMP) 

PR=CP/MW-VIS(TEMPVKG 

HFILM-0357/EPSEX-REY— 0.64-PR— 0.33-KG-0.5/RA 

RETURN 

END 


E-60 



FUNCTION DHADS(ICOMP,T) 

C THIS FUNCTION CALCULATES THE ISOTERIC HEAT OF ADSORPTION. (BTU/#MOLE) 
IMPLICIT REAL*8(A-H,0-Z) 

REAL* 8 LEN 

COMMON/PRJME/GN2JIA,RA V .EPSEX.RHOS.TAMB ALPHA 1 ,UINS JTWALL.LEN 
IF(ICOMP.EQ.2) THEN 
DHADS=20400.0 
ELSE 

DHADS=20000.0 
END IF 
RETURN 
END 

C THIS FUNCTION CALCULATE THE CONDUCTTVTY OF FLUID IN AXIAL AND RADIAL 
C DIRECTION. 

SUBROUTINE CONDUCl(EMISAKS.D_P,D_I.GA,VAV,TAV,RO.CP A VIS. 

1 AKCJURX>ELAVX)ELTA1.DELTA2.DELR0£AKT) 

IMPUCIT REAL*8(A-H,0-Z) 

DIMENSION V(30),VS(30),RP(30)AK(30)AKST(30),DELTA(30), 

1 E(30).ES(30).DER(30).DKR(30).W(30)AKT(30),DELRO(30) 

DELTA( 1 )=DELTA 1 

DELTA(NJR)=DELTA2 

RP(1>=0. 

RP(NJR)=1. 

DO K=2.NJR 

RP(K)=2*DELR0(K)/D_I+RP(K- 1 ) 

END DO 
C 

C VELOCITY CALCULATION 
C 

NJJ-NJR 

RMS=1.-2*D_P/D_I 
BO=.16*(D P/(D_I))**(-3./2.) 

AO=l 7(BO+2.)-RMS/(BO+l ) 

A2=RMS/(BO+l.) 

A3=17(BO+2.) 

D=AO/2.+A2/(BO+3.)-A3/(BO-t4.) 

DO 1=1 JsfJJ 

VS(IMAO+A2*(RP(D**(BO+l.))-A3*(RP(I)**(BO+2.)))/(2.*D) 

END DO 
DO I=1JNJJ 
V(I^VS(I)*VAV 
END DO 
DPDT =D_P/(D_I) 

RW=1.-DPDT 

VW=(AO+A2*(RW**(BO+l.))-A3*(RW**(BO+2.)))/(4.*D) 

C 

C CALC OF EAV. EOAND EW 
C 

R1=1.-4.*DPDT 

EO=VS( 1 )*(1 -+19.4*DPDT**2)*9y8. 

EAV=D_P*VAV/(9.*(1.+19.4*DPDT**2)) 

CCC=(l7+Rl+0.1*Rl**2)/6. 

EM=(3-.15*E0*R1**2)/CCC 
EW*EM*(1 .-RWV(1 .-Rl V2. 

C 

C CALC OF AKAV, OK, WK 
C 

ANPR=CP*AVIS/AKC 
E(l)=EO*EAV 
E(NJJ)=EW*EAV 
V(NJJ>= VW*VAV 
DO J=U 
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non 


IF(J.EQJ)THEN 

1*3 

V(3)*VAV 

DELTA(3>=DELAV 

E<3)*EAV 

ELSE IF(LEQ.1)THEN 
1*1 

ELSE IF(J£Q.2)THEN 
I*NJJ 
END IF 

ANRE*D_P*RO*V(I>/AVIS 

ff((ANRE-350).LE.0)THEN 

AJH«1.95*ANRE**(-.51) 

ELSE 

AJH«1 .06* ANRE**(-.41 ) 

END IF 

HC»AJH*CP*RO*V(I)*(ANPR**(-2J3.)) 

AKR»4 *EMIS*D_P*.173*((TAV*1.8)**3.y((100.**4.)*(2.-EMIS)) 
AKP*EXP((-1 ,76+.0129-AKS/DELTA(Dy.434) 

H-HC+300. 

DOK*1.50 

HR-AKR*(2*AKS+H*D_PV(D_P*AKS) 

HP»AKP*(2.*AKS+H*D_P)/(D_P*AKS) 

H 1 *HC+HR+HP 

IF(ABS((H1 -H)/H) J-E.0.01 ) GO TO 60 
H-Hl 
END DO 

60 AK(I^DELTA(D*(AKC+CP*RO*E(iyDELTA(I)+AKR)+ 

1 (l.-DELTA(I))*(H*AKS*D_P/(2.*AKS+H*D_P)) 

END DO 
AKAV*AK(3) 

OK*AK(l)/AK(3) 

WK* AK(NJRyAK(3 ) 

CALC OF ES. AKST, DER. DKR 

AKM-(3-.15*OK*Rl**2-WK»(Rl»*3-3.*Rl+2.y(6*(l-Rl))yCCC 

do i* i jstjj 
IF(RP(D.GER 1)THEN 
ES(I)*EM*(1 .-RP(I))/( 1.-R1 ) 
AKST(I)=AKM-<AKM-WKr(RP(I)-Rl)/(l-Rl) 

DER(I>*-EM/( 1 .-Rl ) 

DKR(I)*(WK-AKM)/(1.-R1) 

ELSE 

ES(I)*EO+3 .•(EM-EO)*(RP(iyRl)**2+(EO-EM)*2.*(RP(iyRl)**3 
AKST(I)=OK+3.*(AKM-OK)*(RP(iyRl)**2-KOK-AKM)*2-*(RP(iyRl) 

1 **3 

DKR(I)*6.*(AKM-OK)*RP(I)/Rl**2+6 *(0K-AKM)*RP(I)**2/R1**3 
DER(I)«6.*(EM-EO)*RP(I)/Rl**2+6 .•(EO-EM)*RP(I)**2/Rl**3 
END IF 
END DO 
DO 1*1 JOT 
EdVESOTEAV 
AKT(I>*AKST(D*AKAV 
END DO 
RETURN 
END 


SUBROUTINE CONDU(TTESTJGASJ > HLD P.CON PjlR.UO.RE_N,TEMEPS. 

EPS INFEFF CON_R,CON_REFF_CON^CON_Z,CON_SJfflLNGRlJ4GR2JW) 
IMPLICIT REAL*8(A-H,0-Z) 

DATAALF_BET1ALF_BET2,PE_N,EPS_W.C0/.13..8.9,.7..15/ 
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NITROGEN 
IFflGAS .EQ. 1 )THEN 

CON_F=.000358895+3.0026706379E-5TEM-53528942E-9*TEM , TEM 
PR_N=.8485-.0003845398*TEM+2.76374798E-7*TEM*TEM- 
. 5.62898861E-11*TEM*TEM*TEM 

AIR 

ELSE IF(IGAS ,EQ.2)THEN 

CON_F=.0002153778+3.0066679595E-5*TEM-4.8615223803E-9*TEM*TEM 
PR_N=.822301567-.000315649*TEM+2.155594425E-7*TEM*TEM- 
. 4.22896l46E-ll*TEM*TEM*TEM 

C02 


CON F=-.00146886721+1.652016966E-5*TEM+73392609982E-9*TEM*TEM 

PR N= 1 .038870689- .0008425602 1 8*TEM*TEM+8338446 1 83E-7*TEM*TEM- 
. 3.45364l637E-10*TEM*TEM*TEM 

END IF 

IF(TTEST -EQ. 1 ) THEN 

CON 0=EPS-Kl-EPS)/(PHI+l*CON_F/CON_P/3.) 

CON 0 1 = ALF_B ET1 • PR_N* RE_N/EPS 
EFF CON l=CON O+CON_01 
EFF~CON R=EFF_CON_l*CON_F 
CON R=EFF_CON_R-CON_F*CON_0 

EFF CON_Z=CON_F*(CON_0+CON_01*ALF_BET2/ALF_BET1) 

con z=eff_con!z-con_f*con_o 
con~s=con_f*con_o 
ELSE 

CON_0=EPS_INF-K 1 -EPS_INF)/(PHI+2.*CON_F/CON_P/3 .) 

CONST m UCON_0- 1 • 

TEXP=EXP(-5.*RR) 

EF(NN.GTJ4GR1)THEN 
CON 03=RR*ALF_BET!*PR_N*RE_N/EPS 
CON~02=CON_0* ( 1 .+CONST*TEXP) 

ELSE _ 

CON 03=ALF_BET1 *PR_N*RE_N/EPS 
CON - 02=CON_0 
END IF 

EFF_CON 1 =CON_02+CON_03 
EFF CON_R=EFF_CON_l *CON_F 
CON_R=EFF_CON_R-CON_F*CON_02 

EFF CON Z=CON F*(CON_02+CON_03*ALF_BET2/ALF_BET1) 

CON Z=EFF_CON _ Z-CON_F*CON_02 
CON_S=CON_F*CON_02 
END IF 

RETURN 

END 

c 

C THIS SUBROUTINE COMPUTE THE DIFFUSIVITY IN AXIAL AND RADIAL DIRECTION FOR 
C TWO DIM 
C 

C THIS SUBROUTINE COMPUTE THE DIFFUSIVITY IN AXIAL AND RADIAL DIRECTION FOR 
C TWO DIM 
c 

SUBROUTINE AXDIFF_R_Z(ITESTJG AS ,PHI.D_P.DIFF_F,RR.U0.RE_N.SC_N, 

. TEM,EPS.EPS_INF,EFF_DIFF_REFF_DIFF_Zjijr,ngrl,NGR2jin) 

IMPLICIT REAL* 8(A-H,0-Z) 

DATA ALF_BET1 ALF_BET2.PE_N.EPS_W.CO/. 1. 1 .0.10,. 7.. 15/ 

C 

C NITROGEN 
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IF(ITEST.EQ. 1 ) THEN 
DIFF 0=1-(1.-EPS)**.5 
DIFF_01-ALF_BET1*SC_N*RE_N/EPS 
EFF_DIFF_1 =DIFF_0+DIFF_0 1 
EFF DIFF R*EFF_DIFF_1 *DIFF_F 

EFF_DIFF_Z=DIFF_F*(DIFF_0+DIFF_01 •ALF_BET2/ALF_BET1 ) 

ELSE~ 

DIFF <M-(l.-EPS_INFr*-5 
CON ST* 1 7DIFF_0- 1 . 

TEXP»EXP(-«.*RR) 

EF(NN.GTNGR1)THEN 

DIFF_03«<1 -TEXP)*ALF_BET1 *SC_N*RE_N/EPS 
DIFF 02-DIFF 0*(1.+CONST*TEXP) 

DIFF 03-RR*ALF_BETl*SC_N*RE_N 
DIFF 02»DIFF_0*(1 ,+CONST*TEXP) 

ELSE 

DIFF_03-ALF_BET1*SC_N*RE_N 
DIFF 02»DIFF_0 
END IF 

EFF DIFF 1 =DIFF_02+DIFF_Q3 
EFF DIFF_R=EFF_DIFF_ 1 * DIFF_F 

EFF_DIFF_Z»DIFF_F*(DIFF_02+DIFF_03*ALF_BET2/ALF_BET1) 

END IF 

RETURN 

END 

HIS SUBROUTINE COMPUTE THE HEAT TRANSFER COEFFICIENT FOR THE GAS AND WALL 

SUBROUTINE HEAT_WALL<IGASJ > HrWJ)_P.CON_P,RR,UOJlE_D,TEM, 

EPS.H_W) 

IMPLICIT REAL* 8( A-H.O-Z) 

DATA ALF.BETl ALF BET2,PE_N.EPS_W,CO/.13..8.9^7,.13/ 


IF(IGASLQ.1)THEN 

CON F=.000358895+3.0026706379E-5*TEM-5.3528942E-9*TEM*TEM 
PR N=.8485-.0003845398*TEM+2.76374798E-7*TEM*TEM- 
. 5 .6289886 1E-11*TEM*TEM*TEM 

AIR 

ELSE IF(IGAS.EQ.2)THEN 

CON F=.0002153778+3.0066679595E-5*TEM-4.861S223803E-9*TEM*TEM 
PR_Nk.822301567-.0003 15649*TEM+2. 155594425E-7*TEM*TEM- 
. 422896i46E-ll*TEM*TEM*TEM 

C02 

ELSE 

CON F*-.00146886721+1.652016966E-5*TEM+7.3392609982E-9*TEM*TEM 

PR N=1.038870689-.000842560218*TEM*TEM+8338446183E-7*TCM*TEM- 
. 3 .453641 637E-10*TEM*TEM*TEM 
END IF 

CON 0-EPS+<l -EPS V(PHIW+2.*CON F/CON.P/3.) 

CON 01-ALF_BET1*PR_N*RE_D 
EFF CON 1-CON O+CON.Ol 

- CONjwi.EPS_W-Kl-EPS_Wy(PHIW+2.*CON_F/CON_P/3.) 

H W(VCO*PR_N**(lJ3.)*RE_D**(374)*CON_F/D_P 

CON W2-CON W1+1./(1./(.2*PR_N*RE_DHU(H_WO*PR_N*D_P/27CON_F)) 
H_wi=l 7CON.W2-1 VEFF_CON_l 
H W=l.*CON F/D_P/2./H_Wl 
RETURN 
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END 


C 

C THIS SUBROUTINE COMPUTE A CONSTANT FOR CALCULATION OF THERMAL CONDUCTIVITY 
C 

SUBROUTINE PHI_COND(IGAS.TEM,CON_P£PS t PHI,PHIW) 

IMPLICIT REAL*8(A-R,0-Z) 

REAL* 8 Xl(ll),Yl(ll)JC2(lI),Y2(ll) f X3(ll) f Y3(ll),XINT 
DATA X 1/20000 M 4000 M 1000-200 80., 8 6,3,. 07,. 02,.01/ 

DATA Yl/.04,.05,.06 t .08,.l..Z.41,.8,2.,6.,12./ 

DATA X2/20000-400 -200., 40-8-2-.8,.Z.08,.04,.01/ 

DATA Y2/.01,.0Z.023,.04,.08,.Z.4,.8, 4-8-28./ 

DATA X3/10000^2000.,400.*20^0.0.,0.,0 M 0.0/ 

DATA Y3A06 f .08,.Li34,.0,.0,.0,.O..O f .O/ 

NITROGEN 

IF(IGAS.EQ.1)THEN 

CON_F=.00Q358895+3.0026706379E-5*TEM-53528942E-9*TEM*TEM 


ELSE IF(IG AS .EQ3)THEN 

CON_F=.0002153778+3.0066679595E-5*TEM-4.8615223803E-9*TEM*TEM 

C02 

ELSE 

CON F=-, 00 1468 8672 1+1.65 20 16966E -5 *TEM+7 33926099 8 2E -9 *TEM*TEM 
END IF 
N=ll 

XMAX 1 =CON_P/CON_F 

ITEST1=0 

ITEST2=0 

ITEST3-0 

DOI=l*N 

IF(X1(I)XTJCMAX1 AND. ITEST1 JBQ.0) THEN 
SLOPEKY1 <M V Y1 (I))/(X 1 0* 1 >X\ (I)) 

Pffll =SLOPE*(XMAXLX 1 (I- 1 ))+Yl (1-1 ) 

ITEST1=1 
END IF 

IF(X2(I).LT3CMAX1 AND. ITEST2JEQ.0) THEN 
SLOPE=(Y2(I-l )-Y2(I))/(X2(I- 1 >X2(I)) 

PHI2=S LOPE* (XMAX 1 -X2(I- 1 )}+Y2(I-l ) 

ITEST2=1 
END IF 

IF X3(D.LT XMAX 1 AND. ITEST3.EQ.0) THEN 
S JDPE=(Y3(M )-Y3(I))/(X3(I-l>-X3(I)) 
PHTW*SL0PE*(XMAX1-X3(I-1))+Y3(I-1) 

ITEST3=1 
END IF 

IFOTESTlEQ.l AND. ITEST2.EQ.1 AND. FIEST3EQ.l)GO TO 20 
END DO 

20 IF(EPS.LT.0.26) THEN 
PHI=PHI2 

ELSE IF(EPS.GT.0.476) THEN 
PHI=PHI1 
ELSE 

PHI=PHI2+{PHI 1 -PHI2)* (EPS-.26)/.216 
END IF 
RETURN 
END 


C 
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C 


SUBROUTINE COEF2(Yl,VOID_B.D_P,Cl.POR) 

IMPUCIT REAL*8(A-H,0-Z) 

C2-6.0 

POR«VOID_B*(l+Cl*EXP(-C2*Yl/D_P)) 

RETURN 

END 

SUBROUTINE C0EF1(E3PL Y,C) 

IMPUCIT REAL*8(A-H,0-Z) 

CB=2 

C SI- -.16329931237*Y*EPI/(1-EPI) 

CB-3 

c S1=-.244048968*Y*EPI/<1-EPD 
CB-4 

C Sl= -326598632* Y*EPI/(1 -EPI) 

C B=5 

C SI- -.4082482808* Y*EPI/(1-EPI) 

C B=6 

SI- - .489897937* Y*EPU( 1 -EPI) 

C B— 8 

C Sl= -.653 197264* Y*EPI/( 1 -EPI) 

E= EPI*( 1 .+1 .4*EXP(S 1 )) 

E= EPI*(1.+C*EXP(S1)) 

RETURN 

END 

C 

C 

C 

C THIS SUBROUTINE IS BEING CALLED BY DIFFEQ1 WHICH IS ALSO BEING CALLED BY 
C SUBROUTINE FUNCT TO COMPUTE THE VELOSTU AND THE PRESSURE DROP IN THE BED. 
C THE EQUATIONS ARE BEING SOLVED BY NEWMAN’S METHOD. 

C 

SUBROUTINE FUNCT2(J) 

IMPUCIT REAL*8(A-H.O-Z) 

REAL*8 D_L(2LM_AVE 

COMMON/OLD/ AA(14),SUM( 14).COLD< 1 4.201 ) 
COMMON/BND/A(14.14)3(14,14XC(14^01)XK14^9)J{(14.14). 

. Y(14.14),G(14).F(14)3(14.201) 

COMMON/BND2/NJ^2JIJJTPRTjrCNT 

COMMON/PR_OLD Z/CON Z(20U01),CON_R(20U01),CON_S(201,101). 

. H W(201,101),CP P(201.101).H_FP(201,101),Q(4,201,101), 

. VISC P(201,101).D LPP(4^01LRATE_C1(201.101) 

COMMON/MISC Z/R.G F3LPJT0T3C_L13C_L23C_L33C_LA3C_L53C_1 
COMMON/PRIMEA3N2. RA3AV.EPS EX.RHOS.TAMB.ALPHA1 
COMMON/PROP S_Z/CP_S.RO_S^JNT.R_P.D_P.CON_Sl 
COMMON/PROP D_Z/DELZ3ELT,TIMEJ)ELR1J)ELR2JZJTJ4CJ<JILNP 
DATALl,U,L5.L6,Rl.CONV/4.1i3^55.041.714752314/ 

DATA FAC.GC.M_A VE/2.78450526316,416975040.0.28.0/ 

C 

C THE FIRST ROW 
C 

ALF-(l-EPSEXyEPSEX 

RATE_C=RATE_C1(J,1) 

VISC_F=VISC_P(J,1 ) 

DO M1-1.NC 
D L(M 1 )=D_LPP(M 1 J) 

END DO 
KK-0 

D L AVE=0 
DO M1-1.NC 
IF(D_L(M 1 ).GT.0)THEN 
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D_L_A VE=D_L_A VE+D.UM 1 ) 

Kk=KK+l 
END IF 
END DO 

RO F=C(L5,J)/(C(L1J)*R1) 

IF(J.EQ.1)THEN 
c equation for velocity 

F(L4)=FAC*(C(L5J)-BC L5*C0NV)/DELZ+UGC*(R0_F*M_AVE*C(U J)* 
. (C(L4J)-BC_L4)/DELZ+l50*(l-EPSEX)**2*VISC_F*C(L4J)/ 

. D P/D P/EPSEX/EPSEX+1 ,75*( 1 -EPSEX)*RO_F*M_A VE*C(L4,J)**2/ 

. D_P/EPSEX+RO_F*M_AVE*(C(L4J>-P(L4J))/DELT) 
c equation for pressure not considering the pressure drop due to temperature 
c change, dynamic pressure 

F(L5)=(C(L5,J)-P(L5J))/DELT-D_L_AVE/DELZ**2*(BC_L5*CONV- 
. 2*C(L5J>+C(L5J+l)}+C(L4J)*(C(L5,J)-BC_L5*CONV)/DELZ+ 

. C(L5 J)*(C(L4 J>BC_LA)/DELZ+R1 *C(L1 J)*ALF*RATE_C 
c total pressure 

F(L6MC(L6,J)-P(L6.J)yDELT-D L_AVE/DELZ**2*(BC_L5 *CONV - 
. 2*C(L6J>+0(L6,J+1)>+C(L4J)*(C(L6,J)-BC_L5*C0NVVDELZ+ 

. C(L6J)*(C(L4J)-BC_LA)/DELZ-C(L6jyC(Ll J)*((C(L1J>- 
. P(L1J))/DELT-D L_AVE/DELZ**2*(C(L1J+1)-2*C(L1J)+BC_L1>+ 

. C(L4J)*(C(L1J+1>-BC_L1)/(2*DELZ))+R1*C(L1J)*ALF*RATE_C 


the last grid 


equation for velocity 
ELSE IF(J.EQ.NJ)THEN 

F(L4)=FAC*(C(L5J)-C(L5J-l))/DELZ+l./GC*(RO_F*M_AVE*C(L4J)* 
. (C(L4 J)-C(L4 J-l ))/DELZ+150*( 1 -EPSEXr*2*VISC_F*C(L4J)/D_P/ 

. D_P/EPSEX/EPSEX+1.75*(l-EPSEX)*RO_F*M_AVE*C(L4,J)**2/D_P/ 

. EPSEX+R0_F*M_AVE«(C(LAJ>P(L4J))/DELT) 
equation for pressure not considerin the pressure drop due to temperature 
change, dynamic pressure 

F(L5MC(L5.J>-P(L5 ,J))/DELT-D_L_AVE/DELZ»*2*(C(L5.J- 1 y 
. 2*C(L5J)+C(L5J-l))+C(L5Jr(C(L5J)-C(L5J-l)VDELZ+ 

. C(L5J)*(C(L4J)-C(L4J-1))/DELZ+R1*C(L1,J)*ALF*RATE_C 


total pressur 

F(L6>=(C(L6,J)-P(L6,J))/DELT-D_L_AVE/DELZ**2*(C(L6,J-I)- 
. 2*C(L6 J>+C(L6,J-1 )}+C(L4 J)*(C(L6 J)-C(L6 J-l )VDELZ+ 

. C(L6. J)*(C(L4 J)-C(L4 J- 1 )VDELZ-C(L6, J)/C(L1 J)*((C(L1 J> 

. P(L1 J))/DELT-D_L_AVE/DELZ**2*(C(L1J-1)-2*C(L1 J)+C(L1 J-l))+ 
. C(L4,J)*(C(LlJ-l)-C(Ll.J-l))/(2*DELZ)>-t-Rl*C(Ll J)*ALF*RATE_C 


c grids inside the column 
ELSE 

c the velocity 

F(L4>=FAC*(C(L5J>C(L5J-l))/DELZ+l./GC»(RO_F*M_AVE»C(UJ)* 
. (C(L4J)-C(IAJ-1))/DELZ+150*(1-EPSEX)**2 , VISC_F*C(L4J)/D_P/ 

. D_P/EPSEX/EPSEX+1.75*(l-EPSEX)*RO_F*M_AVE*C(L4,J)**2/D_P/ 

. EPSEX+RO_F*M_AVE*(C(L4J>P(L4J))/DELT) 
c equation for pressure not considering the pressure drop due to temperature 
c change, dynamic pressure 

F(L5MC(L5J)-P(L5.J))/DELT-D L AVE/DELZ**2*(C(L5,J-1>- 
. 2*C(L5J}+C(L5J+1))+C(L4J)*(C(L5J)-C(L5J-1))/DELZ+ 

. C(L5 J)*(C(L4 J>C(L4 J- 1 ))/DELZ+R 1 *C(L1J)*ALF*RATE_C 
c total pressure 

F(L6MC(L6J)-P(L6.J))/DELT-D_L_AVE/DELZ**2*(C(L6J-1> 

. 2*C(L6J)+C(L6,J+1))+C(L4J)*(C(L6,J)-C(L64-1))/DELZ+ 

. C(L6J)*(C(UJ>C(UJ-1)VDELZ-C(L6,J)/C(L1,J)*((C(L1J> 

. P(L1J))/DELT-D L ' v f EA)ELZ'*2*(C(Ll J-l v:«C(LlJ)+C(Ll,J-l)Ft- 
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. C(UJ)*(C(LU+D-C(LU-1)V(2*DELZ)HR1*C(L1J)*ALF*RATE_C 
END IF 
210 RETURN 
END 


c this subroutine is being called by diffeql which is also being called by 
c funct subroutine, it compute the velocity profile in the radial direction 
c it uses the Newman method. 

SUBROUTINE FUNCT3(J) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL-8 DR(200XEPS(200),C_K1(200XC_K2(200) 

COMMON/UG/U_GUESS,EPS 
COMMON/OLD/ AA(14)^UM(14),COLD(14.201) 
COMMON/BND/A(14,14XB(14.14XC(14J01)X>(14^9XX(14.14X 
. Y(14.14XG(14XF(14XP(14.201) 

COMMON/BND2/N J^J2JiJ JTPRT JTCNT 
COMMON/PROP S J7CP_S.RO_S,AlNT.R_P,D_P,CON_Sl 
COMMON/PROP_B_Z/REC.VOID_BX>J 

COMMON/PROP D_Z/DELZDELT.TIMEX>ELR 1 J3ELR2JZJT J^C J^BLNP 
COMMON/MISC Z/R.G F.PLP_T0T3C_L13C_L23C_L33C_UJC_L53C_1 
C 

IFfJEQ.l AND. M1.EQ.0)THEN 
c radial fraction of constant velocity 
FRAC1=.93 

c radial fraction of variable velocicy 
FRAC2-.07 
c number of grids 
Kl-21 
K2-99 

c dimensionless constant 

FAC- ( 1 - VOID_B )/V OID_B • 12.247449 
c dimensionless radial size 

DELR11- FRACl*D_I/2/D_P*FAC/(Kl-l) 

DELR22- FRAC2*D_I/2/D P*FAC/(K2) 

EC=iyVOID_B-l. 

EC-1.4 

c compute the porosity variation 
DO 1=1, NP-1 

R= (DELR22*(K2HDELR11*(K1-I)) 

IF(I.GT. K1)THEN 
R— DELR22*(NP-I) 

END IF 

CALL COEFlfPOR, VOID.B, R, EC) 

EPS(I)-POR 

c compute C and K constant in MOmentum equation 

C_K1(I)-D_P*D P*EPS(I)*EPSa)*EPSayi50y(l -EPS(I)y 
• (l-EPSa» 

C_K2fD“L75*(l-EPS(DVD_P/EPS(D/EPS(iyEPS{D 
END DO 

c calculate the constant coefficient in PDE's 
C K11«C_K1(1) 

C K22-C_K2(1) 

BETA-C K11/D_P/D_P 
EPS(NP)=EPS(1)*(1+1A) 

DELR1 1-DELR1 1/FAC 
DELR22-DELR22/FAC 
FR-DELR22/DELR 1 1 
F01-FR/O+FR) 

F11*(1.-FR)/FR 

F21-17((1.+FR)*FR) 

F02»U(1+FR) 

F12-17FR 


E-68 



F22=l V((l .+FR)*FR) 

Ml=l 
END IF 

c compute the radios from the center to the grid 
IF(JJJB.K1 AND. LNE.l) THEN 
DELR=DELR11 
RP=(J-1)*DELR 
RP=1VRP 

ELSE IF(J.GT.K1 )THEN 
DELR=DELR22 

RP=(K1-1)*DELR1 1+{J-K1)*DELR22 
RP=17RP 
END IF 

c compute the velocity equation for the center grid 
IF(JJEQ.1)THEN 
F(1)=U GUESS-C(IJ) 

C 

c 

c compute the velocity the the wall bo undry 
ELSE IF(J.EQ.NJ)THEN 
F(D=0-C(U) 

C 

C 

c 

c compute the velocity for grids in radial directions 
ELSE 

IFOLNEJCl) THEN 
Pl=l.-C K11/C_K1(J)*C(1 J) 

P2=-C K2(J)/C K22*REC*C(1J)*C(1 J) 

P3=RP* (C( 1 J+l )-C( 1 J- 1 ))/(2*DELR ) 

P4«(C(U+1 )-2*C( 1 J>C( U-l ))/DELR/DELR 
F(1)=P1+P2+BETA/EPS(J)*(P3+P4) 

ELSE 

Pl=l.-C Kll/C K1(J)*C(1 J) 

P2=-C K2(J)A: K22*REC*C(U)*C(1J) 
P3=RP*(F21^(1J+1)-F11*C(1J>F0!*C(U4)V(DELR) 
P4=2*(F22*C(U+D-F12*C(1J>F02*C(1J-1))/DELR/DELR 
F(1>=P1+P2+B ETA/EPS (J)*(P3+P4) 

END IF 
END IF 
210 RETURN 
END 
C 

C 

C This subroutine is the main routine for Newman method for soluuo of PDE’s. 

C 

C GENERALIZED CALLING PROGRAM FOR BAND(J) TO SOLVE DIFFERENTIAL 
C EQUATIONS TAKING PARTIAL DERIVATIVES NUMERICALLY 

C *m**mm*m**m*m*m*mmmmm«***m*mm****mm****m«***m***m 

c 

C CALLED BY: MAIN CALLING PROGRAM 
C 

C **«*,««m*m*m*****mm**m*«**«mm**mmm****mm**m**«**m* 

c 

C SUBROUTINES CALLED: 

C WRTOUT (FOR DATA OUTPUT) 

C BAND (TO SOLVE BANDED TRIDIAGONAL COEFFICIENT MATRIX) 

C FUNCT (TO OBTAIN VALUE FOR FUNCTION FOR A GIVEN VALUE 

C FOR A VARIABLE) 

C 

c 

C LIST Or IMPORTANT VARIABLES: 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C»***»*t 


A A coefficient described in Newman, Appendix C 
AA fust, AA is F0^ORKC*CU). Later AA is the 
value of the derivative df 16c used in Newton's 
method 

B B coefficient described in Newman, Appendix C 
C variables to be solved for 
CD multiplication factor used in obtaining 
numerical derivatives 

COLD value of C from previous iteration 
CU 2.0 - CD 

D D coefficient described in Newman, Appendix C 
ERR convergence criterion 
F value of function f(C\ ca l cul a ted in FUNCT 
G residual of f(C) calculated with updated C value 
I index used for equation number 

ITCNT index for iteration number 
ITPRT flag used for determining whether intermediate 
calculations are output; for ITPRT*0,only 
converged results are output; for 
ITPRT*! Jesuits of each iteration are printed. 

J index for node number 
K index for equation number 
M index used in working through nodes used to 
calculate numerical derivatives 
MM used to determine starting node (in relation to 
J) for estimation of numerical derivatives 
N number of equations (no. of variables) 

NJ number of node points 

SAVEC saved value of C 

SUM intermediate value used in calcu l ati n g G 

TINIER criterion used to avoid working with small numbers 

TINY criterion used to avoid working with small numbers 

TNIEST criterion used to avoid working with small numbers 

WORKC saved value of C; modified when C less than Tinier 

X X value described in Newman, Appendix C 

Y Y value described in Newman, Appendix C 


c 

c 

c 

c 

c 

c 

c 


DIMENSIONS HAVE BEEN SET FOR 6 EQUATIONS AND 101 NODE POINTS; IF 
IT IS DESIRABLE TO INCREASE THE NUMBER OF EQUATIONS. CHANGE THE 6 
IN THE DIMENSIONS TO WHATEVER NUMBER YOU WANT. AND CHANGE THE SECOND 
DIMENSION OF D TO 2N+1. WHERE N IS THE NUMBER OF EQUATIONS. IF MORE 
NODE POINTS ARE DESIRED. CHANGE THE 101 IN THE DIMENSION STATEMENTS TO 
WHATEVER YOU WANT TO. 

SUBROUTINE DIFFEQl(Cl.Pl.Nl.NP2JND.inmt) 


IMPLICIT REAL*8(A-H.O-Z) 

REAL-8 C1(14.201).P1(14.201) 

COMMON/OLD/ AA(14)^UM(14).COLD(14.201) 
COMMON/BND/A(14,14).B(14.14),C(14.201).D(14.29),X(14.14), 

. Y( 1 4, 14),G( 14),F(14),P( 1 4,201 ) 
COMMON/BND2/NJ4JZNJJTPRTJTCNT 

DATA TTNY.TINIER.TNIEST.ERR/1 .0D-10.1 .0D-15.1 .0D- 15.1.0D-4/ 


DATA CU.CD/l .0001 ,.9999/ 


ITCNT INITIALIZED HERE. AND INITIAL VALUES FOR VARIABLES PRINTED OUT 
ff ITPRT=1. 


ITPRT-0 

L1*N 

L2=NJ 

L3=NJ2 

NJ2*NP2 

N=N1 
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NJ=NP2 

IF (TTPRT.GT.O) CALL WRTOUT2 
IFflNDEQ.l ) THEN 
DO 11=1 J41 
DO I2=1,NP2 
C(IlJ2>=CiaU2) 
pau2>=piau2) 

END DO 
END DO 

ELSE IFflND.EQ.2) THEN 
DOIl=l.Nl+l 
DOI2=l,NP2 
CaU2H2iaU2) 

END DO 
END DO 

ELSE IF(IND.EQ3) THEN 
DOIl=LNl 
DO I2=1,NP2 

cau2>-ciau2) 

pau2)=piau2) 

END DO 
END DO 
END IF 

LOOP BEGUN FOR ITERATIONS 
DO ITCNT=1 JTRAT 
COLD ARRAY SETUP 


DO K=1,N 
DO J=1,NJ 
COLD(K,J)=C(KJ) 

END DO 
END DO 

LOOP BEGUN TO MARCH THROUGH EACH NODE POINT. SUBSEQUENT CALCULATIONS 
PERFORMED AT EACH NODE POINT. G VALUES ALSO SET AT -F(I). 


DO J=1.NJ 
IF(INDEQ.1)THEN 
CALL FUNCTl(J) 

ELSE IF (TND.EQ3)THEN 
CALL FUNCT2(L 
ELSE IF(IND.EQ.3)THEN 
CALL FUNCT3(J) 

END IF 
DOI=lJV 

SUMa>=0-0 

Ga>-Fa) 

END DO 


THIS IS THE PLACE THE DERIVATIVES ARE CALCULATED. MM IS SET 
TO INDICATE THE INTERVAL WHERE THE DERIVATIVES ARE TO BE CALCULATED 


(IN RELATION TO J). 


IF (J.EQ.l)THEN 
MM=0 

ELSE IF (J.LT.NJ) THEN 
MM=-1 
ELSE 
MM=-2 
END IF 

DO M=MM,MM+2 


E-71 



non non 


ORIGINAL VALUES OF C STORED IN SAVEC AND WORKC 

DOK-1.N 

SAVEOCOU+M) 

WORKC*SAVEC 

DERIVATIVES CALCULATED FOR SMALL VALUES OF C (LESS THAN TINY) 

IF (ABS(WORKC).LT.TINY) THEN 
IF(ABS(WORKC).LT .TINIER) WORKC=SIGN(TINIER,WORKC) 
C(KJ+M)*1.2*W0RKC 
IF(IND.EQ.1)THEN 
CALL FUNCTl(J) 

ELSE IF(IND.EQ.2)THEN 
CALL FUNCT2(J) 

ELSE IF(IND.EQ3)THEN 
CALL FUNCT3(J) 

END IF 
DOI-1.N 
AA(D-F(I) 

END DO 

C(K.J+M^l.l*WORKC 
IFflND.EQ.lITHEN 
CALL FUNCTl(J) 

ELSE IF(IND.EQ.2)THEN 
CALL FUNCT2(J) 

ELSE IF(IND.EQ3)THEN 
CALL FUNCT3(J) 

END IF 
DOI=l.N 

AA(D*AA(I)+4.0*F(I) 

END DO 

C(KJ+M^WORKC 
IF(IND.EQ.1)THEN 
CALL FUNCTl(J) 

ELSE IF(IND.EQ.2)THEN 
CALL FUNCT2(I) 

ELSE IF(IND.EQ3)THEN 
CALL FUNCI3(J) 

END IF 
DO 1=1 

AA(IMAA(D-3.0*Fa))/(0.2*WORKC) 

END DO 

c 

C DERIVATIVES CALCULATED FOR LARGER VALUES OF C (GREATER THAN TINY) 
C 

ELSE 

C(KJ+M>=WORKC*CU 
IFOND.EQ.iyTHEN 
CALL FUNCTl(J) 

ELSE IF0NDEQ.2JTHEN 
CALL FUNCT2(J) 

ELSE IF(IND.EQ3)THEN 
CALL FUNCT3(J) 

END IF 
DO 1*1 
AA(I>F(I) 

END DO 

C(KJ+M)=WORKC*CD 
IF(IND.EQ.1)THEN 
CALL FUNCTKD 
ELSE IF(IND.EQ3)THEN 
CALL FUNCT2(J) 
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ELSE F(TND.EQ3)THEN 
CALL FUNCT3(J) 

END IF 
DO 1=1 

AA(IMAA(D-F(D)/((CU-CD)*W0RKC) 

END DO 
ENDIF 

C(KJ+M>=SAVEC 

VALUES FOR A,BX>»X AND Y GIVEN. SUM IS ALSO INCREMENTED 
DO 1=1 *N 

SUM(I)=SUM(THAAarC(KJ+M) 

IF (M.EQ.-2) Y(LK>=AA(I) 

IF (M.EQ.-l) A(tK>=AA(I) 

IF (M.EQ.0) B(LK)=AA(I) 

F (M.EQ.l) D(LK)=AA(D 
F (M.EQ 2 ) X(LK)=AA(I) 

END DO 
END DO 
END DO 
DO 1=1 

G(I)=G(THSUM(D 
END DO 

BAND CALLED TO SOLVE THE BLOCK TRIDIAGONAL MATRIX 

CALL B AND2(J) 

END DO 

CONVERGENCE CRITERION CHECKED. F ANY VALUE OF RELATIVE CONVERGENCE 
FOR ANY VARIABLE IS GREATER THAN THE CONVERGENCE CRITERION, A NEW 
ITERATION IS BEGUN 

DO K*1,N 
DO J=1.NJ 

F(DABS(C(KJ)).GT.TNIEST) THEN 
F(DABS((C(KJ>COLD(K,J))/C(K,J)).GTERR) GO TO 70 
ENDF 
END DO 
END DO 
GOTO 80 

F(TTPRT .GT. 1) CALL WRTOUT2 
END DO 
CONTINUE 
DO I1=LN 
DO 12=1 J^J 

ciau2>=cau2) 

END DO 
END DO 
N=L1 
NJ=L2 
NJ2=L3 
RETURN 
END 


This subroutine is the main routine for Newman method for solutio of PDE’s. 


GENERALIZED CALLING PROGRAM FOR BAND(J) TO SOLVE DIFFERENTIAL 
EQUATIONS TAKING PARTIAL DERIVATIVES NUMERICALLY 
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C ALLED BY: MAIN CALLING PROGRAM 


SUBROUTINES CALLED: 

WRTOUT (FOR DATA OUTPUT) 

BAND (TO SOLVE BANDED TRIDIAGONAL COEFFICIENT MATRIX) 
FUNCT (TO OBTAIN VALUE FOR FUNCTION FOR A GIVEN VALUE 


FOR A VARIABLE) 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LIST OF IMPORTANT VARIABLES: 

A A coefficient described in Newman, Appendix C 
AA firsu AA is F(WORKC*CU). Later AA is the 
value of the derivative df/dc used in Newton's 
method 

B B coefficient described in Newman, Appendix C 
C variables to be solved for 
CD multiplication factor used in obtaining 
numerical derivatives 

COLD value of C from previous iteration 
CU 2.0 - CD 

D D coefficient described in Newman, Appendix C 
ERR convergence criterion 
F value of function f(CX calculated in FUNCT 
G residua] of f(C) calculated with updated C value 
I index used for equation number 
ITCNT index for iteration number 
ITPRT flag used for determining whether intermediate 
calculations are output; for ITPRT*0,anly 
converged results ire output; for 
ITPRT* 1 Jesuits of each iteration are printed. 

J index for node number 
K index far equation number 
M index used in working through nodes used to 
calculate numerical derivatives 
MM used to determine starting node (in relation to 
J) for estimation of numerical derivatives 
N number of equations (no. of variables) 

NJ number of node points 

SAVEC saved value of C 

SUM intermediate value used in calculating G 

TINIER criterion used to avoid working with small numbers 

TINY criterion used to avoid working with small numbers 

TNIEST criterion used to avoid working with small numbers 

WORKC saved value of C; modified when C less than Tinier 

X X value described in Newman, Appendix C 

Y Y value described in Newman, Appendix C 


£*»»*•*••**•«*•***«*•******•+**********••»********+•*****•*+***+****+*++ 


c 

C DIMENSIONS HAVE BEEN SET FOR 6 EQUATIONS AND 101 NODE POINTS; IF 
C IT IS DESIRABLE TO INCREASE THE NUMBER OF EQUATIONS. CHANGE THE 6 
C IN THE DIMENSIONS TO WHATEVER NUMBER YOU WANT. AND CHANGE THE SECOND 
C DIMENSION OF D TO 2N+1. WHERE N IS THE NUMBER OF EQUATIONS. IF MORE 
C NODE POINTS ARE DESIRED. CHANGE THE 101 IN THE DIMENSION STATEMENTS TO 
C WHATEVER YOU WANT TO. 

SUBROUTINE DIFFEQ2(C1.P1^1J^P2JNDJTCNT0) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 C1(14.201),P1(14.201) 

COMMON/OLD/ AA(14).SUM(14).COLD<14,201) 

COMMON/BND/A(14,14)£(14,14).C(14a01).D(14.29)^C(14.14X 

.Y(14.14).G(14).F(14).P(14,201) 
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COMMON/BND2/N t NJ2JUJTPRTJTCNT 

C0MM0N/NCY/NC1 

DATA TINY,TINIER,TNIEST,ERR/1 .0D- 10,1 .0D- 15, 1 .0D- 15. 1 .OD-4/ 

DATA CU.CD/l .000 1 ,.9999/ 

C 

C ITCNT TNTTI AI JZED HERE, AND INITIAL VALUES FOR VARIABLES PRINTED OUT 
C IF rrpRT=i. 

C 

ITPRT=0 

ITCNT=0 

L1=N 

L2=NJ 

L3=NJ2 

NJ2=NP2 

N=N1 

NJ=NP2 

IF (ITPRT.GT.O) CALL WRTOUT2 
IFOND.EQ.1) THEN 
DOll-l.Nl+3 
DOI2=l,NP2 

cau2>=ciau2) 

PaiJ2V=Pl(IU2) 

END DO 
END DO 

ELSEIFOND.EQ.2) THEN 
DOIl=l,Nl 
DO I2=1,NP2 

cau2)=ciau2) 

pau2>=piau2) 

END DO 
END DO 
END IF 
C 

C LOOP BEGUN FOR ITERATIONS 
C 

DO ITCNT = I JTCNTO 
C 

C COLD ARRAY SET UP 
C 

DO K=1.N 
DO J=1 JMJ 
COLD(K,J)=C(KJ) 

END EXD 
END DO 
C 

C LOOP BEGUN TO MARCH THROUGH EACH NODE POINT. SUBSEQUENT CALCULATIONS 
C PERFORMED AT EACH NODE POINT. G VALUES ALSO SET AT -Fa). 

C 

DOJ=l.NJ 
CALL FUNCT4(J) 

DOI=LN 

SUMa)= 0-0 

Ga>-Fa) 

END DO 


C 

C 

C 

C 

C 


rHIS IS THE PLACE THE DERIVATIVES ARE CALCULATED. MM IS SET 
FO INDICATE THE INTERVAL WHERE THE DERIVATIVES ARE TO BE CALCULATED 
JN RELATION TO J)- 


IF(J.EQ.1)THEN 

MM=0 

ELSE IF (J.LT.NJ) THEN 
MM=-1 
ELSE 
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MM=-2 
END IF 

DO M=MM.MM+2 

ORIGINAL VALUES OF C STORED IN SAVEC AND WORK€ 

DOK-1.N 

SAVEC=C(KJ+M) 

WORKC-SAVEC 

DERIVATIVES CALCULATED FOR SMALL VALUES OF C (LESS THAN TINY) 

IF (ABS(WORKC)XT.T[NY) THEN 
IF(ABS(WORKC).LT .TINIER) WORKC=SIGN(TINIER,WORKC) 
C(K.J+MW-2*WORKC 
CALL FUNCT4(J) 

DOI-LN 
AA(D-F(D 
END DO 

C(K.J+M)=l.l*WORKC 

CALLFUNCT4(J) 

DO 1=1 

AA(T)=AA(r)+-4.0* F(I) 

END DO 

C(K,J+M>=WORKC 
CALL FUNCT4(J) 

DO 1=1 JN 

AA(IMAA(D-3 .0* F(I))/(0.2* W ORKC) 

END DO 

DERIVATIVES CALCULATED FOR LARGER VALUES OF C (GREATER THAN TINY) 
ELSE 

C(KJ+M)=WORKC*CU 
CALL FUNCT4(J) 

DO 1=1 >1 
AA(I)=F(I) 

END DO 

C(K.J+MV=WORKC*CD 
CALL FUNCT4(J) 

DOI=l.N 

AA(D=(AA(D-F(DV((CU-CD)*WORKC) 

END DO 
ENDIF 

C(IU+M)=SAVEC 

VALUES FOR A3XLX AND Y GIVEN. SUM IS ALSO INCREMENTED 
D0I-1.N 

SUM(I)=SUM(I>AA(I)*C(KJ+M) 

IF (M.EQ.-2) Y(LK>*AA(I) 

IF (M.EQ.-1) A(LK^AA(I) 

IF (M.EQ.0) B(LK)=AA(I) 

IF(M.EQ.1)D(LK)=AA(D 
IF (M.EQ.2) X(LK)=AA(D 
END DO 
END DO 
END DO 
DOI=l.N 
G(IH3(I)+SUM(D 
END DO 

BAND CALLED TO SOLVE THE BLOCK TRIDIAGONAL MATRIX 
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CALL BAND2(J) 

END DO 

CONVERGENCE CRITERION CHECKED. IF ANY VALUE OF RELATIVE CONVERGENCE 
FOR ANY VARIABLE IS GREATER THAN THE CONVERGENCE CRITERION. A NEW 
ITERATION IS BEGUN 


DO K=1,N 
DOW JO 

EF(DABS(C(K,D)-GT.TNTEST) then 
IF(DABS((C(KJ>COLD(K,J))/C(K,J)).GT.ERR) GO TO 70 
ENDIF 
END DO 
END DO 
GO TO 80 

70 IFdTPRT .GT. 0) CALL WRTOUT2 
END DO 
80 CONTINUE 
DO 11=1 JJ 
DO 12=1 JO 

ciai.i2>=cau2) 

END DO 
END DO 
N=L1 
NJ=L2 
NJ2=L3 
RETURN 
END 

SUBROUTINE WRTOUT2 


implicit real*8(a-h,o-Z) 

COMMON/BND/A(14,14),B(14.14),C(14,201).D<14,29).X(14,14), 

.Y(14,14).G(14).F(14).P(14,201) 

COMMON/BND2/N.NJ2JO.ITPRTJTCNT 

IF (ITCNTJrE.0) WRITE (•.99)ITCNT 

WRITE (MOO) 

DO K=lJOZ2 

WRITEC . 1 0 1 )K.(C(LK).I= 1 JO 
END DO 

99 FORMATdTCNT=J2) 

100 FORMATO J Cl C2 C3 

C4 CS C6 7) 

101 FORMAT(lXJ3,6(lPEl6.8)) 

RETURN 

END 

C BLOCK TRIDIAGONAL MATRIX SUBROUTINE 
SUBROUTINE BAND2(J) 

IMPLICIT REAL*8(A-H,0-Z) 

DIMENSION E(14.14,201) 

COMMON/BND/A(14.14)3(14,14XC(14^01)JX14.29)J((14.14), 
.Y(14.14).G(14).F(14),P(14,201) 
C0MM0N/BND2/NJ02J0JTPRTJTCNT 
101 FORMATC0DETERM=0 AT J='J4) 

IF(I.EQ.1)THEN 
NP1=N+1 
DO 1=1 J4 
D02*N+1)=G(D 
DO L=1N 
D(LL-rN>=X(LL) 

END DO 
END DO 

CALL MATINV2(N.2*N+1 .DETERM) 

C IF(DETERM.EQ.O) WRITE (2.101) J 
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DO K=1.N 

E(KJ^PU)=D(K.2*N+1) 

D0U1.N 

E(K.L.1K-D(K.L) 

X(K.L)=-D(K.L+N) 

END DO 
END DO 
RETURN 

ELSE IF(J.EQ.2)THEN 
DO I=1,N 
DO K=1N 
DO L=1N 

D(LK)-D(LK>t-A(H)*X(UK) 

END DO 
END DO 
END DO 

ELSE IF(J£QNJ2) THEN 
DO 1=1 .N 
DOL-LN 

G(I>=G(D-Y(LL)*E(UNPU-2) 

DOM-1.N 

A(LL)= A(LL>+Y (LM)*E(M,LJ-2) 

END DO 
END DO 
END DO 
ENDIF 
DO 1*1 

D(LNP1)=-G(I) 

DO L»1.N 

D(LNP1>»D(LNP1)+A(LL)*E(1«NP1J-1) 

DOK-1.N 

B(LK>«B(IJC)+A(LL)*E(LjCJ-l) 

END DO 
END DO 
END DO 

CALL MATINV2(N,NP1 DETERM) 

C IF(DETERM.EQ.O) WRTTE(2,101 ) J 
DO K=1X 
DO M=1.NP1 
E(KJ*U)=-D(K,M) 

END DO 
END DO 

IF(J£QNJ2)THEN 
DO K=1N 
CCKJVEOCNPU) 

END DO 
DO M-NJ2-1.1.-1 
DOK-1.N 

C(ILM>=E(ILNP1JV1) 

DOL=lN 

C(KJ^)-C(1CM)+E0CUM)*C(UM+1) 
END DO 
END DO 
END DO 
DOL*l.N 
DOK-1.N 

C(K.1)=C(K,1)+X(KX)*C(U3) 

END DO 
END DO 
ENDIF 
RETURN 
END 

MATRIX INVERSION SUBROUTINE 
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SUBROUTINE MATINV2(N,M J3ETERM ) 

IMPLICIT REAL* 8( A-H.O-Z) 

DIMENSION ID(1 4) 

COMMON/B ND/A(14, 14)3(14, 14),C(14.201),D(14,29) 
DETERM =1.0 
DO I=1.N 
IDdH) 

END DO 
DO NN=1*N 
BMAX=0.0 
DO 1=1 Js T 

IF(IIXI).EQO)THEN 
DO J=1JN 

IF(ID(J)3Q.0)THEN 
IF(DABS(B(U)).GT3MAX) THEN 
BMAX=DABS(B(LJ)) 

IROW=I 
JCOL=J 
ENDIF 
ENDIF 
END DO 
ENDIF 
END DO 

IF(BMAX.EQ.0.0)THEN 

DETERM=0.0 

RETURN 

ENDIF 

ID(JCOL>=l 

IF(J COLNE JR OW) THEN 
9 DOJ=l.N 

SAVE=B(TROW,J) 

B(IROWJ)=B(JCOLJ) 

B(JCOLJ)=SAVE 
END DO 
DOK=l.M 
SAVE=D(IROW.K) 

D(IROW.K>=D(JCOLK) 

D(JCOL.K)=SAVE 
END DO 
ENDIF 

FF= 1 ,0/B (JCOL, JCOL) 

DOJ=l.N 

B(JCOLJ)=B(JCOLJ)*FF 
END DO 
DO K=1.M 

D(JCOUK)=D(JCOL.K)*FF 
END DO 
DO 1=131 

IF(IJ'IE.JCOL)THEN 
15 FF = B(UCOL) 

D0J=13f 

B(U) = B(U) -FPB(JCOU) 

END DO 
DO K=lJvl 

EKLK) = IXUC) -FF*D(JCOUC) 

END DO 
ENDIF 
END DO 
END DO 
RETURN 
END 
C 



C 
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SUBROUTINE CUBSPL(X.Y,NJEND.SUM1) 

IMPLICIT REAL*8(A-H,0-Z) 

C 

C 

C THIS SUBROUTINE COMPUTE THE MATRIX FOR FINDING THE COEFFICIENTS OF A 
C CUBIC SPLINE THROUGH A SET OF DATA. THE SYSTEM THEN IS SOLVED THE 
C SECOND DERT/mVE VALUE. 

C 

c 

c 

CX.Y ARRAY OF X AND Y VALUES TO BE FITTED 

C S ARRAY OF SECOND DERIVmVE VALUSES AT THE POINTS 

CN NUMBER OF POINTS 

CIEND TYPE OF END CONDITION TO BE USED 

C IEND-1, LINEAR ENDS, S(1)«S(N>«0. 

C IEND-2. PARABOLIC ENDS, S(1^S(2X S(N>S(N-1) 

C IEND-3. CUBIC ENDS. S(1).S(N) ARE EXTRAPOLATED 

C F AUGMENTED MATRIX OF COEFFICIENTS AND R.H.S FOR FINDING S 

C 

C — 

c 

REAL*4 SUM1 

REAL»8X(N),Y(NXS(101)JFO01.4)^(100)3a00).C(100),D(100), 

1 DX1.DY1X>X2X»Y2JDXN1.DXN2 
INTEGER NJEND.NM1.NM2JJ 
C 



C 

C COMPUTE FOR THE N-2 ROWES 
C 

NM2-N-2 

NM1-N-1 

DX1*X(2)-X(1) 

DYl=(Y(2)-Y(l)yDXl*6.0 

DOI-1.NM2 

DX2«Xa+2>Xa+l) 

DY2*(Y (I+2)-Y (1+1 )VDX2*6.0 
F(L1>=DX1 

F(L2>=2.0*(DX1+DX2) 

F(U)»DX2 
F(I,4)=DY2-DY1 
DX1=DX2 
DY1=DY2 
END DO 
C 

C 

C ADJUST FIRST AND LAST ROWS APPROPRIATE TO END CONDITION. 

C 

GO TO (20,30,80), IEND 
C 

C FOR IEND=1, NO CHANGE IS NEEDED 
C 

20 GOTO 100 

C 

CFORIEND-2 

C 

50 F(U)-F(U)+X(2)-X(1) 

F(NM2.2>=F(NMZ2>^X(N>-X(NM1 ) 

GOTO 100 
C 

C FOR IEND»3 
C 

80 DX1=X(2)-X(1) 

DX2=X(3)-X(2) 
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F( U)=(DX 1 +DX2)*(DX 1 +2* DX2)/DX2 
F(UWDX2*DX2-DX 1' *DX1 )/DX2 
DXN2=X(NM1)-X(NM2) 

DXN1=X(N>X(NM1) 

F(NM2,1>= (DXN2*DXN2-DXN 1 *DXN 1 VDXN2 
F(NMZ2HDXN1+DXN2)*(DXN1+1*DXN2)/DXN2 
GO TO 100 
C 

C 

C 

100 DO I=2*NM2 

F(U)«F(L2)-Fai)/Fa-U)*Fa-13) 

Fa.4)=Fa4>-Fai)/Fa-u2)*Fa-i,4) 

END DO 

c 

c back suBsnrunoN 
c 

F(NMZ4)=F(NM2,4)/F(NMZ2) 

DO I=2NM2 
J=NM1-I 

F(J,4XF(J*4 VF(J3)*F( J+l ,4))/F( J 2 ) 

END DO 
C 

C 

c 

C NOW PUT THE VALUES INTO THE S VECTORS 
DO 1=1 .NM2 
S(I+D=F(I,4) 

END DO 
C 

C 

c 

C GET S(l) AND S(N) 

C 

GO TO (150,1 60, 1 70) JEND 
C 

C 

c 

150 S(1)=0. 

S(N>0. 

GO TO 200 
C 

C 

c 

160 S(1)=S(2) 

S(N)=S(N-1) 

GO TO 200 
C 

c 

c 

170 S(lH(DXl+DX2rS(2>-DXl*S(3))/DX2 

S(NM(DXN2-fDXN 1 )*S(NM 1 )-DXNl *S(NM2))/DXN2 
C 

c 

c 

C FIND THE INTEGRATION 
C 

C FIND THE COEFFICIENTS 
C 

200 CONTINUE 
DOI=lJsM 

AaHsa+i>s(i))/(6*(xa+i)-x(i))) 

B(I>=S<TV2 

ccmy(i+i )- Yovcxa+D-xa))- 
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i ( 2 *(X(i+i )-xa»*sa wxa+i )-xmr sa+i »/6 

Da>=va) 

END DO 
SUM-0. 

DO I-l.N-1 

PARTi*Aav4*(xa+i >-x(i)r *4 

PART2»B(I)/3*(X(I+1)-X(I))**3 
PART3-C(D/2*(Xa+l)-Xa»”2 
/ PART4-Dar<xa+D-x(D) 

SUM-SUM+PART1+PART2+PART3+PART4 
END DO 
SUM 1 -SUM 
RETURN 
END 
C 

C INTEGRATION BY CUBIC SPLINE 
C 

SUBROUTINE SIMPS(F.N,H.RESULT) 

IMPLICIT REAL*8(A-H,0-Z) 

C 

C — 

C SUBROUTINE SIMPS: 

C THIS SUBROUTINE PERFORMS SIMPSON’S RULE INTEGRATION 

C OF A FUNCTION DEFINED BY A TABLE OF EQUISPACED VALUES. 

C 

C 

C 

C PARAMETERS ARE: 

C F -ARRAY OF VALUES OF THE FUNCTION 

C N -NUMER OF PONTS 

C H -THE UNIFORM SPACING BETWEEN X VALUES 

C RESULT -ESTIMATE OF THE INTEGRAL 

C 

REAL*8 F(N)JLRESULT 
INTEGER N,NPANNEUNHALF.NBEGIN,NEND 
C 

C 

C CHECK TO SEE IF NUMBER OF PANELS IS EVEN. NUMBER OF PANELS IS N-l. 

C 

NPANEL-N-1 

NHALF-NPANEL/2. 

NBEGIN-1 

RESULT-0. 

IF((NPANEL-2*NHALF) .NE. 0) THEN 
C 

C NUMBER OF PANEL IS ODD. USE 3/8 RULE ON FIRST THREE, 1/3 RULE ON REST. 

C 

RESULT-3.0*H/8.*(F(l)+3.*F(2}+3.*F(3>t-F(4)) 

NBEGIN-4 
IF(N£Q.4)RETURN 
END IF 
C 

C 

C 

C APPLY 1/3 RULE- ADD IN FIRST, SECOND AND LAST VALUES. 

C 

RESULT-RESULT+H/3.0*(F(NBEGIN>h1.0*F(NBEGIN+1>+F(N)) 

NBEGIN-NBEGIN+2 

IF(NBEGIN.EQN)RETURN 

c 

c 

c 

C THE PATTERN AFTER NBEGIN+2 IS REPETITIVE. GET NEND, THE PLACE TO STOP 
C 
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NEND=N-2 

DO 10 I=NBEGIN,NEND.2 
RESULT=RESULT+H/3.0*(2.0*F(I}+4 *F(I+l)) 

RETURN 
END 

REAL*8 FUNCTION TEMPINOTME) 

IMPUCIT REAL*8(A-H.O-Z) 

C THIS FUNCTION CALCULATES CURRENT INLET TEMPERATURE 
C BASED ON THE TIME FOR A TEMPERATURE CHARACTERIZATION 
C COMPARSION RUN 
IF(TIMEXT.O^) THEN 
TO* 74.713 
Tl* 33.11 
T2= -775.68 
T3 = 5027.2 
T4 * 0.0 
T5 = 0.0 
ELSE 

TO *25.789 
Tl = 396.87 
T2 = -403.93 
T3 = 251.85 
T4 = -85.612 
T5= 11.979 
ENDIF 
X *TIME 

TEMPIN = TO+T1*X+T2*X**2.-hT3*X^3.+T4*X**4.+T5*X**5. 
TEMPIN * TEMPTN+460. 

RETURN 

END 
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APPENDIX F 


VACMOL FORTRAN CODE 


c 

C RELAXATION METHOD 
C 

C PROGRAM COND 

C DIMENSIONS HAVE BEEN SET FOR 6 EQUATIONS AND 201 NODE POINTS; IF 
C IT IS DESIRABLE TO INCREASE THE NUMBER OF EQUATIONS, CHANGE THE 6 
C IN THE DIMENSIONS TO WHATEVER NUMBER YOU WANT, AND CHANGE THE SECOND 
C DIMENSION OF D TO 2N+1, WHERE N IS THE NUMBER OF EQUATIONS. IF MORE 
C NODE POINTS ARE DESIRED, CHANGE THE 201 IN THE DIMENSION STATEMENTS TO 
C WHATEVER YOU WANT. 

C 

IMPLICIT REAL*8(A-H.O-Z) 

REAL*4 PL(1 1.201 ),QP(14J201 )TL_TIME,T_TIME 
COMMON/BND/A(14.14),B(14.14),C(14,201),D(14,29),X(14,14), 

. Yn4.14),G(14),NNJJTPRTJTCNT.F(14),P(14^01)Z,U_Fl 
COMMON/PROP.D Z/DELZl.DELTlJDELT.DELZJ^CJUXJTESTl.K.F 
COMMONyiNDIC/LrX2X3X4X5i6 

COMMON/PR OLD Z/VISC_P(201),RO_P(201),CP_P(201),CON_FPP(201), 

. CON LPP(20 1 ),D_LPP(4.201 ).H_FP(20 1 XH_TTP(201 ).H JIP(201 \ 

. H_OWPP(201 ),H FWPP(201 ),Q<4.201 ),RATE_C 1 (201 XAMOL_W(201 ) 
COMMON/Q_SOURCE/DELH 
COMMON/BC PRE/BC L55.TIME 
DATA DELH0/270.0/ 

OPEN (50.FILE= , ASCnDAT.STATUS=’NEWJlECL=32766) 

OPEN (66,FILE='C0N_C02.DAT.STATUS='NEW') 

OPEN (88,FILE=’C0N_H20JDAT,STATUS=NEW) 

OPEN (99,FILE=TEMDAT,STATUS='NEW’) 

C WRITE HEADER DATA TO ACSD FILE 
WPJTE(50,42) 

INITIALIZE THE C ARRAY WITH THE INITIAL GUESSES OF THE SOLUTION 

CALL INITIAL Z 
ICOT=l 
T TIME=0 
DO 301 LUU0000 
IF(C(L1.1 )XT.(400.+460.))THEN 
DELH=DELH0 
ELSE 
DELH=0. 

END IF 

CALL DIFFEQ 
ITEST1=0 

T TIME=T_TIME+DELT*ZAJ_F1 *60. 

TiME=T TIME 
IF(LLEQ200)THEN 
DELT1=DELT1*2 
DELT=DELT*2 
END IF 

IF(LLEQ ,400)THEN 
DELT1 =DELT1 *2 
DELT=DELT*2 
END IF 

IF(LLEQ.600)THEN 
DELT1=DELT1*2 
DELT=DELT*2 
END IF 

IF(LL.EQ.800)THEN 
DELT1=DELT1*2 
DELT=DELT*2 
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END IF 

IF(LI_EQ . 1 000)THEN 
DELT1=.0001 
DELT=U_F1 *DELT1/Z 
END IF 

DO 74 M2*1,NJ 
QP(1,M2)«C(1.M2)*C(L5,M2) 

QP(2M2)-C(ZM2rC(L5MZ) 

QP(3,M2)-C(L1.M2M60. 

QP(4Jv12)-C(LZM2>-460. 

QP(5.M2)-C(L3.M2>460. 

QP(6Jd2>-C(l>t.M2) 

QP(7.M2)=C(L5.M2) 

QP(8.M2)-C(3.M2) 

QP(9.M2)-C<4.M2) 

74 CONTINUE 

WRITE(*,*)LLJLT_TIME 

WRITEC.*)QP(U).QP(1.42) I QP(1.84),QP(1.126).QP(U68) 
WRTTE(*,*)QP(2,l),QP(Z42),QP(2,84) f QP(2,126),QP(2,168) 
WRITE(*,*)QP(3,1),QP(3,42),QP(3,84),QP(3.126),QP(3,168) 
WRTTE(*,*)QP(4,1),QP(4,42),QP(4,84),QP(4,126),QP(4,168) 
WRTTE(*,*)QP(5,1).QP(5,42),QP(5.84),QP(5,126),QP(5,168) 
WRUE(*,*)QP(6,1).QP(6,42),QP(6,84),QP(6,126XQP( 6,168) 
WRITE(*,*)QP(7,l),QP(7,42),QP(7 t 84),QP(7,126),QP(7,168) 
WRITE(*,*)QP(8,1),QP(8,42),QP(8,84) > QP(8,126),QP(8,168) 
WRTTE(V)QP(9,1).QP(9,42).QP(9,84).QP(9.126),QP(9,168) 

DO520J-1.151 

PL(1J)-QP(1J) 

PL(2J)-QP<ZJ) 

PL(3J)=QP(4J) 

PL(4J)-QP(6J) 

520 PL(5J)-QP(7J) 

PL_TIME*T_TIME 
print* ,pl_time 
ISAMP=25 

IF((LUISAMP)*ISAMP.EQ.LL) THEN 

WRTTE(50,43)PL_TIME.PL(U).PL(1,42),PL(1.84)J»L(1.126),PL<1,168) 

A .PL(Z1XPUZ42).PL(ZM).PL(Z126)J>L(Z168) 

A ,PL(3.1 ).PL<3.42).PL(3.84).PL(3,126),PU3. 168) 

& ,PL(4,1 ),PL(4.42).PL(4.84)J>L(4,126),PL(4, 168) 

& ,PL(5,1),PL<5.42).PL(5.84).PL(5,126).PL(5.168) 

ENDIF 

DO 78 11*1 
DO 78 12-1 JO 
P(I1J2)«C(IU2) 

78 CONTINUE 
200 CONTINUE 
301 CONTINUE 

42 F0RMAT(lX.TTME,ppC02@l,ppC02@2,ppC02@3,ppC02@4,ppC02@5\ 

A ',ppH20@ 1 t ppH20@ZppH20@3,ppH20@4,ppH20@5'. 

A \T gts@l,T gts@2,T gas@3,T gas@4,T gu@5', 

A '.Tbed@l.Tbed@2,Tbcd@3.Tbed@4,Tbed@5’, 

A \T wall® l.T w*fl@2,T wall@3,T w*]l@4,Tw*ll@5') 

43 FORMAT(lX^6(E15.5,’,‘)) 

44 FORMAT(/5X^(E15-5.3X)) 

45 FORMAT(/5X^(E15.5.3X)) 

46 FORMAT(/5X^(E1533X)) 

STOP 

END 

C 

C 

SUBROUTINE INTTIAL_Z 
IMPLICIT REAL* 8( A-H.O-Z) 

REAL*8 K F(4)>I_AVEJvI_W(4),C_FO(4)JN_L1JN_L2JN_L3JN_L4, 
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. IN_L5JN_L6.Q2(4) 

REAL*8 0(14,201 ).P1(14,201) 

COMMON/BND/A(14,14),B(14.14).C(14.201).D(14.29).X(14.14), 

. Y(14,14).G(14),N^JJTPRT.rrCNT,F(14),P(14a01)Z.U_Fl 
common/prop_b_z/d_ld_e,s_b.con_wa,con_wi_q,con_wi_k, 

. CP.WA.CP WI Q,CP_WI_K,RO_WA,RO_WI_Q,RO_WI_ICX_WA»X_WI_Q, 

. X WI.KJLLMLD.LMA 

C0MM0N/PR0P_S_Z/CP_S,R0_S,AINT,R_P,D_P,C0N_S.G_F,HEAT(4).M_W 

COMM ON/PROpId_Z/DELZ 1 ,DELT 1 ,DELT,DEL2^NC JI.LLJTEST 1 ,K_F 
COMMON/BOUN_CON/BC_Ll ,BC_L23C_L3,BC_L43C_L5 3C_L63C_C(4),TO 
COMMON/PR_OLDJZ/ VISC_P(201 ) 

COMMON/INDIC/LlX2i3X4X5,L6 
COMMON/NCY/NC1 
COMMON/BC_PRE/BC_L35,TIME 
COMMON/GAS /INERT J4COMP 

COMMON/P RIME/GN2.RA.RAV.EPSEX.EPS IN ,ALF,RHOS,ALPHAl 

DATA INERTNCOMPA.3/ 

C 

C INITIAIJZATION 
C 

DATA Z.D LD_E.S_B.CON_WA,CON_WI_Q,CON_WI_K.CP_WA, 

. CP_WI_Q,CP_WI_K.RO_WA.RO_WI_Q.RO_WI_K^_WA.X_WI_Q.X_WI_K 
. /1.4.0.5412D0.03620D0.0.46D0.32.875DO, 

. .29D0,.19D0,. 1 09848 D0..21 D0..21 D0.489.0D0.3 31X1,1 6. 0D0, 

. 5.41666667D-3.4.1666667D-Z2.083333D-2/ 

DATA PT.RA,RAV.EPSEX,EPSIN,RH0S.ALPHA1 
. /790.2014,4.7244lE-3,4.72441E-3,.373,.317,43.375./ 

DATA AINT.CP S30_S3_PX>_P.C0N_S.HEAT 
. /635.D0.0.2DO,70.0,4.724410D-3.9.44882D-3,.1.-19000.DO, 

. -28OOO.DO.-8988.0DO, -89887 
DATA G_F.P_TOT.TO 
. /58.6.15.28338.0D0/ 

DATA BC C/.17.03.14.81.0.0/ 

DATA BC L13C_L23C_L33C_L5.BC_L6 
. £38.338 Ja%35JS.I 
DATA IN L1JN L2JN_L3.IN_WJN_I3JN_L6 
. £38-338.338.,0.0.790.20415,790.20415/ 

DATAM W/44.,18.,28,32/ 

DATA NCJU.DELZ1.DELT1/4.169..00833333.1.0E-5/ 

C DATA NC3U.DELZ1.DELT1/431..01666667..001/ 

DATA R3I/555.0.3. 141593 DO/ 

DATA K F/.017..0035..05 ..05/ 

NC1=NC 

Nl=NC*2+5 

ALF=(1 .ODO-EPSEX)/EPSEX 
PT=P_TOT 
SUM_Y=0 
DO10I-1.NC 
Y_F=BC C(I)/P_TOT 
SUM Y=SUM_Y+Y_F 
BC C(I)=Y_F 
C_FO(I>=BC_C(I) 

10 CONTINUE 
L1=2*NC+1 
L2=L1+1 
L3=L2+1 
L4=L3+1 
L5=L4+1 
L6=L3+1 
BC_L55=BC_L5 
VISC_F= VIS (IN_L 1 )* 60 
R_CRT=BC_L5/IN_I3 
IF(R_CRT.LT.033) THEN 
BC_L5=33*IN_13 


F-3 



END IF 

DO 413 12=1 JO 
C1(1J2)=0.0 
PKU2K0.0 
C1(2J2)=BC L5 
P1(2J2)=IN L5 
C1(3J2)=IN_L1 
P1(3J2)=IN_L1 
VISC_P(I2)=VISC_F 
413 CONTINUE 

CALL DIFFEQ1(C1.PLNJ.2) 

N-Nl 

DO 42312-1 JO 
C(UJ2)-C1(U2) 

C(L5J2)=C1(2J2) 

423 CONTINUE 
U_F1=C(L4,1) 

DELZ-DELZ1/Z 
DELT-U F1*DELT1/Z 
DO 22I1-1JIC 

cai.i>=c_Foai) 

22 CONTINUE 
D0 24I1-1JTC 
DO 24 12-1 JO 

cau2>=c_Foai) 

paiJ2)-c_Foai) 

24 CONTINUE 
DO 30 1-1 JO 
P(L1JHN_L1 
P(L2JWN_L2 
P(L3J>»IN_L3 
P(L4J)=IN_U 
P(L5J)-IN LS 
P(L6J>=IN_L6 
C(L1J)-BC LI 
C(L2J)-BC_L2 
C(L3J)-BC_L3 
C(L6J)-BC L6 
30 CONTINUE 

CALLIST_Z(1.C(L2,1),P(L5,1),C(1,1),C(2,1),C(3,1),C(4,1),Q2) 

DO 40 1-NC+1 JIC+NC 
DO 40 11=1 JO 
C(LU >=Q2(I-NC)*RO_S 
P0J1)-C(U1) 

40 CONTINUE 
RETURN 
END 
C 
C 

SUBROUTINE FUNCT(J) 

IMPUCIT REAL*8(A-H.O-Z) 

REAL* 8 K_F(4)Jif_AVEJil_W(5),KGASJC_FP(4,201 \Cl (14.201), 

. P1(14J01)JIEY_P(201)JCEFFD_L(4),YO(4) 

DIMENSION Q2(4),C2(14,201).PE _N M(4) 

COMMON/PR_OLD_Z/ VISC_P(201 ) JIO_P(201 ),CP_P(201 ),CON_FPP(201 ), 

. CON LPP(201 ),D_LPP(4,201 ).H_FP(201 )JI_TTP(201 XH_HP(201 ), 

. H OWPP(201 ),H_FWPP(201 ),Q(4,201 ),RATE_C1 (201 XAMOL_W(201 ), 

. d!laV(201) 

COMMON/BND/A(14,14),B(14.14),C(14,201).D(14.29)JC(14,14), 

. Y(14.14),G(14)JIJOJTPRTJTCNT,F( 14) J>( 14.201 ).Z.U_F1 
COMMON/PROP B_Z/D LD_E,S_B.CON_WA.CON_WI Q,CON_WI_K.CP_WA, 

. cp wi q.cp_wi:k.ro_wa,ro_wi_q.ro_wi_kj(_wa,x_wi_q.x_wi_k, 

. D_LMLD_LMA 

COMMON/PROP_S_ZyCP_S.RO_SAINT,R_P.D_P.CON_S,G_F,HEAT(4)J4_W 
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COMMON/PROP D_Z/DELZl.DELTl.DELT.DELZJJC,nXLJTESTl.K_F 
COMMON/INDIC/LlJ-2X3.L4.L5,L6 

COMMON/BOUN_CON/BC_L1.BC_L2.BC_L33C_L43C_L53C_L6.BC_C(4).TO 

COMMON/Q_S OURCE/DELH 
COMMON/GAS/INERT.NCOMP 
COMMON/BC PRE/BC_L55,TIME 
COMMON/NCY/NC1 

COMMON/P RIME/GN2,RA.RAV,EPSEX.EPSrNALF,RHOS,ALPHAl 

DATA R3I/555.03.141593D0/ 

DATA Rl.CONV/555.0,1/ 

DATA FAC.GC/2.784505263 16.4 16975040.0/ 


MASS TRANSFER FROM THE BULK OF GAS SRTEAM TO THE SURFACE OF ABSORBENT 

C ESTABLISHED COEFFICIENT MATRIX 
IF(TIME.GE.6.0)GO TO 501 
IF(ITEST3Q.0)THEN 
D_T=D_E+D_I 
X_W=D E-D I 

A_C=2*D_I/((D_I+D_E)*X_W) 

A_INS=2*D_E/((D_I+D_E)*X_W) 

ITEST=1 
U F1=C(L4,1) 

H FW=6.0 
H OW=0.1 
ENDIF 

IF(JJEQ.l AND. ITEST1NEJTCNT)THEN 
RO_F=C(L5.1 )/(C(Ll.l r R) 

DO10I-1.NJ 

DOIl=l*NC 

Yoai)=cau) 

END DO 
M AVE=0. 

DOIl=l.NC 

M_AVE=M_AVE+M_W(I1 )* YO<Il ) 

END DO 

AMOL W(I)=M_AVE 
RO_F-C(L5JV(C(LlJ)*R) 

TEMP=C(L1J) 

GN=C(L4J)*RO_F/60. 

VISC P(I)=VIS(TEMP)*60 
REY=RE(GN.TEMPAMOL_W(I)) 

IF(REYLT.1.0) GO TO 10 
CP_P(I)=CPGAS(TEMP,YO) 

H FP(I)“HFILM(AMOL_W,TEMP.REY,CP_P(I))*60. 

PP=C(L5J) 

CON LPP(I)=EFFK(GN,TEMP,CP_P(J),RO_F.PP,YO)*60. 

DOlf-LNC 

D_LPPa 1 JVEFFDfl 1 ,GN.TEMP.RO_FJ > P.YO)*60. 

IF{D LPP(I1 J)I.T.0) THEN 
D_LPPai.D=D_LPPaU-l) 

ENDIF 
END DO 
10 CONTINUE 
TTEST1=ITCNT 
ENDIF 
GO TO 502 
501 DO 11=1 J^C 

Yoai)=cau) 

END DO 
M AVE=0. 

DO 11=1 J^C 


F-5 



M AVE=M AVE+M_Wai)*YOai) 

END DO 

AMOL_W(I)=M AVE 
502 R_CRT«BC_L55/C(L5.NJ) 

IF(R CRT .LT.0.53) THEN 
BC_L5=.53*C(L5.NJ) 

ELSE 

BC_L5*BC_L55 
END IF 

RO_F-C(L5JV(C(LUTR) 

CP F-CP_P(J) 

H_FS-H_FP(J) 

CON_L-CON_LPP(J) 

D L.AVE-O. 

SUM-0 
DO I1-1J4C 

D_Lai>-D_LPPau) 

IF(D_L(1 1 ).NE.0)THEN 
SUM-SUM+1 

D L AVE-D L AVE+D 141 ) 

END IF 
END DO 

D.L.AVE-D L_A VE/SUM 

D_LAV(J)»D_L_AVE 

VISC_F*VISC_P(J) 

PE_N S-U Fl*RO S*CP S*Z/CON_S 
PE_N_H«U_F1 *RO F*CP F*Z/CON_L 
F3-ALF*H_FS*Z*AINT/(R0_F*CP_F*U_F1 ) 

F4=H FW*Z*4/(U FI *D_I*EPSEX*RO F»CP F) 

F5-H FS*AINT*Z/(U Fl*RO S*CP S) 

F6-AINT*Z/(R0_S*CP_S*U_F1 ) 

F7=Z*H_FW*A CAJ_F1/R0_WA/CP WA 
F8=Z*H_OW*A INS/U_F1/R0_WA/CP_WA 
F9=Z/((l-EPSEX)*RO S*CP_S*U F1*PI*D I/2*DJ/2*Z) 
CALLIST_Z(1.C(LU).C(L5J).C(U).C(2J),C(3J),C(4J).Q2) 

DO 20 I-1.NC 
Q(IJVQ2(P*RO_S 
20 CONTINUE 

C K=2.7845/(150*( 1 -EPSEX)**2* VISC P(J)/D P/D_P/ 

.EPSEX/EPSEX/GC) 

IF(J.EQ.1)THEN 
DO 50M1-1.NC 
Fl-K F(M 1 )*AINT*Z/U JF1 

F(NC+M1 >=F1 • (Q(M 1 J)-C (NC+M 1 J)HC(NC+M 1 , J)-P(NC+M1 J))/DELT 
50 CONTINUE 
FLUX 1=0 
FLUX2-0 
DO60M1-1.NC 

FLUX1-FLUX1+HEAT(M1)*(K_F(M1)*(Q(MU>C(NC+MU))) 

FLUX2»FLUX2+AINT*K_F(M1)*(Q(M1J)-C(NC+M1J)) 

60 CONTINUE 

RATE_C 1 (J)-FLUX2 
TOT C-0. 

DO40M1-1JMC-1 

F(M1H-D_L(M1)/DELZ«*2*(C(M14+1>-2*C(MU>+C(MU+1)H 
. C(U JV(2.0*DELZ)*(C(MU+1 )-C(M U+Dh-l .0/DELT*(C(M U> 

. P(M1J)))-ALF/R0_F*(C(MU)*RATE C1(J>AINT*K_F(M1)*(Q(M 1 J>- 
. C(NC+MU))) 

TOT_C=TOT_C+C(M 1 J) 

40 continue 

F(NCM .-TOT_C-C(NCJ) 

F(L1)=1.0D0/PE_N_H/DELZ**2*(C(L1J+1)-2*C(L1J>+C(L1J+1))- 
. 1.0D0/(DELZ*U_Fl)*(C(LlJ)-C(LU))*C(UJ>F3»(CG-iJ> 
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. C(L2J)>-F4*(C(L1 J>C(L3 J)HC(L1,J)-P(L1 J)VDELT 


F(L2)«1.0D0/PE_N_S/DELZ**2*(C(L2J+1)-2*C(L2J)+C(L2.J+1)K 
. F5*(C(L1J)-C(L2,J))-F6*FLUX1+DELH*F9-(C(LZJ)- 
. P(LZJ)VDELT 

F(L3)-F7*(C(LU>C(UJ)}-F8»(C(UJ)-TOHC(L3J)- 
. P(L3J))/DELT 

F(U)=(C(L5>1 )-C(L5 J))/DELZ1+1 yGC*(R0_F*M_AVE*C(L4 J)* 

. (C(L4J)-C(L4J))/DELZ1+150*(1-EPSEX)**2*V1SC_F*C(L4JVD_P/ 

. D P/EPSEX/EPSEX+1 .75*( 1 -EPSEX)*RO_PM_AVE*C(L4,J)**2/D_P/ 

. EPSEX+R0_F*M_AVE*(C(L4 J>P(L4 J))/DELT1 ) 

F(L5>=(C(L5,J)-P(L5 J)VDELT1 -D_L_AVE/DELZ1 **2*(C(L5 J+l )- 
. 2*C(L5J>+C(L5,J+l)>+C(L4J)*(C(L5.J+l)-C(L5.J)yDELZl+ 

. C(L5J)*(C(UJ)-C(UJ))/DELZ1-C(L5JVC(L1J)*((C(LU)- 
. P(L1J)VDELT1-D L AVE/DELZ1**2*(C(LU+1)-2*C(LU>+C(LU+1))+ 
. C(UJ)*(C(L1J+1)-C(LU+1))/(2*DELZ1)>+R1*C(LU)*ALF* 

. RATE_C1(J) 


C 

C 

C THE LAST ROW 
C 

ELSE IF(J .EQ. NJ) THEN 
DO 90 M1=1.NC 
F1=K_F(M1)*AINT*Z/U_F1 

F(NC+M1 >=F1 *(Q(M1 J>C(NC+M1 J))-(C(NC+M U)-P(NC+MU))/DELT 
90 CONTINUE 
FLUX 1=0 
FLUX2=0 
DO 100 M1=1,NC 

FLUX1 =FLUX 1 +HEAT (M 1 )*(K_F(M 1 )*(Q(M 1 J>C(NC+M 1J))) 
FLUX2=FLUX2+AINT*K_F(M 1 )»(Q(M1 J>-C(NC+MU)) 

100 CONTINUE 

RATE_C1(J)=FLUX2 
TOT C=0. 

DO 80M1=1.NC 

F(M1H-D L(M1)/DELZ**2*(C(MU-1)-2*C(MU>+C(MU-1)H 
. C(L4JV(2.0*DELZ)*(C(M1J-1)-C(M1J-1)>+L0/DELT*(C(M1J> 

. P(M 1 J) ))- ALF/RO_F* (C(M 1 J)*RATE_C 1 ( J)- AINT* K_F(M 1 )*(Q(M 1J)- 
. C(NC+M1J))) 

TOT_C=TOT_C+C(M 1 J) 

80 CONTINUE 

F(NC)=1 ,-TOT_C-C(NC J) 

F(L1)=1.0D0/PE_N H/DELZ**2*(C(LU-1 )-2*C(Ll,J>+C(Ll J-l )>- 
. 1.0D0/(DELZ*U F1)*(C(LU>-C(LU-1))*C(UJ>-F3*(C(L1J> 

. C(L2J»-F4»(C(LU)-C(L3J)HC(LU)-P(LU))/DELT 

F(L2)=1.0D0/PE_N_S/DELZ**2*(C(L2,J-l)-2*C(L2J>+C(L2J-l)>t- 
. F5*(C(L1J)-C(L2,J))-F6*FLUX1+DELH*F9-(C(L2J> 

. P(L2J))/DELT 

F(L3)=n*(C(LlJ>C(UJ))-F8*(C(L3J)-TOHC(UJ)- 
. P(L3.J)VDELT 


F(UW(BC L5-CfL5.J)VDEL21-rUGC»(RO F*M_AVE*C(UJ)’ 

. (C(L4J>-C(L4J-l))/DELZl+150*(l-EPSEX) , *2*VISC_F*C(L4jyD_P/ 

. D_P/EPSEX/EPSEX+1.75*(l-EPSEX)*RO_F*M_AVE*C(L4,J)**2/D_P/ 
. EPSEX+RO_F*M_AVE*(C(L4 J>P(L4 J))/DELT1 ) 
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F(L5MC(L5.J)-P(L5.J)yDELTl -D_L_A VE/DELZ1 «2»(BC_L5- 
. 2*C(L5 J>+C(L5, J- 1 ))+C(L4 J)*(BC_L5-C(L5J))/DELZ1 + 

. C(L5.J)*(C(UJ)-C(UJ-l))/DELZl-C(L5jyC(LU)*((C(Ll,J)- 
. P(LU))/DELT1-D L AVE/DELZl **2«(C(LU-1 )-2*C(Ll.J>+C(LU-l)H- 

. C(IA.J)*(C(LU-1K:(LU-1))/(2*DELZ1)>+R1*C(LU)*ALF* 

. RATE_C1(J) 


C INTERIOR ROWS 
C 

ELSE 

DO 130 M1*1.NC 
F1*K_F(M1)*AINT*Z/U_F1 

F(NC+M1 )=F1 *(Q<M1J)-C(NC+M 1 J)HC(NC+MlJ)-P(NC+MU)yDELT 
130 CONTINUE 
FLUX1-0 
FLUX2-0 
DO 140 M1*1J4C 

FLUX1-FLUX1+HEAT(M1)*(K_F(M1)*(Q(MU)-C(NC+MU))) 

FLUX2*FLUX2+AINT*K_F(M1)*(Q(M1J)-C(NC+M1,J)) 

140 CONTINUE 

RATE_C1(J)=FLUX2 
TOT 00. 

DO 120 Ml*l .NC 

F(M1W-D L(M1)/DELZ**2*(C(M1J+1)-2*C(M1J>+C(M1J-1))+ 

. C(Ujya0*DELZ)*(C(MU+l>C(MU-l)H1.0/DELT*(C(MU)- 
. P(MlJ)»-ALF/RO F*(C(MU)*RATE_C1(J)-AINT*K_F(M1)*(Q(MU)- 
. C(NC+MU))) 

TOT_OTOT_C+C(M1J) 

120 CONTINUE 

F(NC>»1.-T0T_C-C(NCJ) 

F(L1)»1.0D0/PE N H/DELZ**2*(C(L1,J+1)-2*C(L1J>+C(L1J-1)>- 
. 1.0D0/(DELZ*U_Fl)*(C(LU>-C(LU-l)rC(UJ>-F3*(C(LU> 

. C(L2J))-W*(C(LU>C(L3J)HC(L1,J)-P(LU))/DELT 

F(L2)=1 .0D0/PE N_S/DELZ**2*(C(L2.J-t-l )-2*C(L2J)+C(liJ-l)>+ 

. F5*(C(L1.J)-C(L2J))-F6*FLUX1+DELH*F9-(C(L2J)- 
. P(L2,J)VDELT 

F(L3)=F7*(C(L1J>C(L3J)>-F8»(C(UJ)-T0HC(L3J> 

. P(L3.J)VDELT 


F(U>=(C(L5J^1 )-C(L5J))/DELZl +1 7GC*(RO_F*M_AVE*C(L4 J)» 

. (C(L4J>C(L4J-l))/DELZl+l50*(l-EPSEX)**2*VISC_F*C(L4jyD_P/ 

. D P/EPS EXEPSEX+1 .75* ( 1 -EPSEX)*RO_P*M_A VE*C(L4 J)**2/D_P/ 

. EPSEX+R0_F*M_AVE*(C(L4J>P(L4J))/DELT1) 

F(L5HC(L5J)-P(L5J))/DELT1-D_L_AVE/DELZ1**2 , (C(L5J+1)- 
. 2*C(L5J)+C(L5,J-l)>+C(L4jr(C(L5J+l>-C(L5J))/DELZl+ 

. C(L5 J)*(C(U J>C(U J- 1)VDELZ1 -C(L5 J)/C(LU)*((C(LU> 

. P(L1J))/DELT1-D L AVEjDELZl**2*(C(LU-l>2*C(LlJ>+C(Ll.J+l)H 
. C(U.J)*(C(LU+lV(f(LlJ-l)y(2*DELZl)>t-Rl*C(LU)*ALF* 

. RATE_C1(J) 


END IF 

RETURN 

END 

SUBROUTINE DIFFEQ 
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IMPLICIT REAL*8(A-H,0-Z) 

GENERALIZED CALLING PROGRAM FOR BAND(J) TO SOLVE DIFFERENTIAL 
EQUATIONS TAKING PARTIAL DERIVATIVES NUMERICALLY 

»,»«»»•»»»»»•»«»•*•«»•»«»»«»»«•* *» ************************** *********** 

CALLED BY: MAIN CALLING PROGRAM 


SUBROUTINES CALLED: 

WRTOUT (FOR DATA OUTPUT) „ , 

BAND (TO SOLVE BANDED TRIDIAGONAL COEFFICIENT MATRIX) 
FUNCT (TO OBTAIN VALUE FOR FUNCTION FOR A GIVEN VALUE 
FOR A VARIABLE) 


£*•**•**< 




c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 

c 

c 

c 

c 

c 

c 

c 


LIST OF IMPORTANT VARIABLES: 

A A coefficient described in Newman, Appendix C 
AA first, AA is F(WORKC*CU). Later AA is the 
value of the derivative df/dc used in Newton s 

method # 

B B coefficient described in Newman, Appendix C 
C variables to be solved for 
CD multiplication factor used in obtaining 
numerical derivatives 

COLD value of C from previous iteration 
CU 2.0 - CD 

D D coefficient described in Newman, Appendix C 
ERR convergence criterion 
' F value of function f(C), calculated in FUNCT 
G residual of f(C) calculated with updated C value 
I index used for equation number 
TTCNT index for iteration number 
ITPRT flag used for determining whether intermediate 
calculations are output; for ITPRT =0,only 
converged results are output; for 
ITPRT=1 Jesuits of each iteration are printed. 

J index for node number 
K index for equation number 
M index used in working through nodes used to 
calculate numerical derivatives 
MM used to determine starting node (in relation to 
J) for estimation of numerical derivatives 
N number of equations (no. of variables) 

NJ number of node points 

SAVEC saved value of C 

SUM intermediate value used in calculating G 

TINIER criterion used to avoid working with small numbers 

TINY criterion u sed to avoid working with small numbers 

TNIEST criterion used to avoid working with small numbers 

WORKC saved value of C; modified when C less than Tinier 

X X value described in Newman, Appendix C 

Y y value described in Newman, Appendix C 


[MENSIONS HAVE BEEN SET FOR 6 EQUATIONS AND 101 NODE POINTS; IF 
^ TO IN^EASE THE NUMBER OF EQUATIONS, CHANGE THE 6 

I THE DIMENSIONS TO WHATEVER NUMBER YOU WANT, AND CHANGE THE SECOND 
D^SS^F DTO 2N+1, WHERE N IS THE NUMBER OF EQUATIONS. F MORE 
ODE POINTS ARE DESIRED, CHANGE THE 101 IN THE DIMENSION STATEMENTS TO 
TIATEVER YOGtfjpp 



COMMON/OLD/ AA(14),SUM(14).COLD(14.201 ) 
COMMON/BND/A(14,14)3(14.14),Ca4J01).D(M,29)^(14 > 14), 

•Y(14, 14),G( 14).N.NJJTPRT JTCNT,F(1 4XP( 14.201 ) 

DAT A TINY,TINIER,TNIEST .ERR/ 1 .0D- 1 0, 1 .0D- 15.1 .0D-20, 1 .OD-4/ 

DATA CU.CD/l. 0001, .9999/ 

C 

C ITCNT INITIALIZED HERE. AND INITIAL VALUES FOR VARIABLES PRINTED OUT 
C 1FITPRT=1. 

C 

ITPRT-0 

IF (ITPRT.GT.0) CALL WRTOUT2 
C 

C LOOP BEGUN FOR ITERATIONS 
C 

DO 75 ITCNT-1,10 
C 

C COLD ARRAY SET UP 
C 

DO10K-1.N 

DO10J-1.NJ 

COLD(K.J)=C(KJ) 

10 CONTINUE 
C 

C LOOP BEGUN TO MARCH THROUGH EACH NODE POINT. SUBSEQUENT CALCULATIONS 
C PERFORMED AT EACH NODE POINT. G VALUES ALSO SET AT -Fa). 

C 

DO60J-1.NJ 
CALL FUNCT(J) 

DO 15 I=1.N 
SUM(I>=0.0 
G(I>-F(I) 

15 CONTINUE 
C 

C THIS IS THE PLACE THE DERIVATIVES ARE CALCULATED. MM IS SET 
C TO INDICATE THE INTERVAL WHERE THE DERIVATIVES ARE TO BE CALCULATED 
C (IN RELATION TO J). 

C 

IF (J.EQ.1)THEN 
MM=0 

ELSE IF (J.LT.NJ) THEN 
MM— 1 
ELSE 
MM— 2 
ENDff 

DO 50 M=MM.MM+2 
C 

C ORIGINAL VALUES OF C STORED IN SAVEC AND WORKC 
C 

DO50K-1J; 

SAVEC«C(KJ+M) 

WORKC-SAVEC 

C 

C DERIVATIVES CALCULATED FOR SMALL VALUES OF C (LESS THAN TINY) 

C 

IF (ABS(WORKC).LT.TINY) THEN 
ff(ABS(WORKC).LT.TINIER) WORKC=SIGN(TINIER,WORKQ 
C(KJ+M>* 1.2* WORKC 
CALL FUNCT(J) 

DO 20 1=1 
AA(D=-F(I) 

20 CONTINUE 

C(K,J+M)= 1 . 1 * WORKC 
CALL FUNCT(J) 

DO 25 1=1 .N 
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AA(I)=AA(I>+4.0*F(I) 

25 CONTINUE 

C(K.J+M>=WORKC 
CALL FUNCT(J) 

DO 30 1=1^ 

AA(I)=(AA(D-3.0*F(I))/(0.2*WORXC) 

30 CONTINUE 

c 

C DERIVATIVES CALCULATED FOR LARGER VALUES OF C (GREATER THAN TINY) 

C 

ELSE 

C(K.J+M>=WORKC*CU 
CALL FUNCT(J) 

DO 35 1=1 .N 
AA(D=F(I) 

35 CONTINUE 

C(K_J+M>=WORKC*CD 
CALL FUNCT(J) 

DO 40 1=1 ,N 

AA(I>=<aA(I)-F(I))/((CU-CD)*WORKC) 

40 CONTINUE 

ENDIF 

C(K.J+M)=SAVEC 

C 

C VALUES FOR A3X>.X AND Y GIVEN. SUM IS ALSO INCREMENTED 
C 

DO 45 1=1 ,N 

SUMa>=SUMa>^AAa)*C(KJ+M) 

IF (M.EQ.-2) Y(LK^AA(I) 

IF (M.EQ.-1) A(LK>=AA(I) 

IF (M.EQ.O) B(LK)=AA(I) 

IF (M.EQ.1) D(UO=AA(D 
IF (M.EQ2) X(LK)*AA(I) 

45 CONTINUE 

50 CONTINUE 

DO 55 I=LN 
G(D=G(I>+SUM(I) 

55 CONTINUE 

C 

C BAND CALLED TO SOLVE THE BLOCK TRIDIAGONAL MATRIX 

C 

CALL BAND2(J) 

60 CONTINUE 
C 

C CONVERGENCE CRITERION CHECKED. IF ANY VALUE OF RELATIVE CONVERGENCE 
C FOR ANY VARIABLE IS GREATER THAN THE CONVERGENCE CRITERION, A NEW 
C ITERATION IS BEGUN 
C 

DO 65 K= 1,4,2 
DO 65 J=1 JSTJ 

IF(DABS(C(IU)).GT.TNIESD THEN 
IF(DABS((C(KJ>-COLD(KJ)yC(K.D).GTERR) GO TO 70 
ENDIF 

65 CONTINUE 
GO TO 80 

70 IF0TPRT .GT. 0) CALL WRTOUT2 
75 CONTINUE 
80 CONTINUE 
RETURN 
END 

SUBROUTINE FUNCTl(I) 

IMPUCIT REAL*8(A-H,0-Z) 

REAL’S D_L(2),M_AVE 
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COMMON/OLD/ AA(14).SUM(14),COLD(14.201) 
COMMON/BND/A(14,14),B(14,14),C(14,201),D(14,29),X(14,14) t 
Y(14.14).G(14)J^>f JJTPRTJTCNT,F(14),P(14^01 ) 

COMMON/PR OLD Z/V1SC P(201 ),RO_P(20 1 ),CP_P(201 ),CON_FPP(201 ), 
CON LPP(201)X>_LPPf4O01 ),H_FP(201 XH_TTP(201 ),H_IIP(201 ), 

H OWPP(201),H FWPP(201),Q(4.201XRATE_C1(201)^MOL_W(201), 
D_LAV(201) 

COMMON/BOUN CON/BC L13C_L23C_L33C_L43C_L53C_L63C_C(4) 
COMMON/PRIME/GN2.RA3AV3PSEX.EPSINALF.RHOSALPHA1 
COMMON/PROP S_Z/CP S.R0_S,AINT,R_P.D_P.C0N_S,G_F,HEAT(4) 
COMMON/PROP D_Z/DELZU5ELT1 
DATA Lli4X5,Rl,CONV/3,1^555.0.1/ 

DATA FAC,GC/2.7845Q5263 1 6,416975040.0/ 


MASS TRANSFER FROM THE BULK OF GAS SRTEAM TO THE SURFACE OF ABSORBENT 


RATE.C-RATE_C1(J) 

VISC F»VISC_P(J) 

C K*2.7845/( 1 50*( 1 -EPS EX)* *2* VISC_F/D_P/D_P/ 
3PSEX/EPSEX/GC) 

D_L_ A VE»D_LA V (J) 

IF(J3Q.1)THEN 

F(L5HC(L5J)-P(L5J)VDELT1-D_L_AVE/DELZ1**2»(C(L5J+1>- 
. 2*C(L5J)+C(L5J+1))-C_K*(C(L5J+1>-C(L5J))**2/DELZ1/DELZ1- 
. C_K*C(L5J)*(C(L5J+1 >-2*C(L5J>+C(L5J+l ))/DELZl/DELZl - 
. C(L5JVC(LU)*((C(LlJ>-P(LU)yDELTl-D_L_AVE/DELZl**2* 

. (C(L1 J+l )-2*C(Ll J)+C(L1 J+l ))+C(L4 J)*(C(L1 J+l )-C(Ll J+l ))/ 

. (2*DELZ1)>+R1*C(LU)*ALF»RATE_C 

F(L4HC(L5J+l)-C(L5J)yDELZl+{150*(l-EPSEX)»*2*VISC_F* 

. C(L4,J)/D_P/D_P/EPSEX/EPSEX/GC/2.7845) 


ELSE IF(J3Q.NJ)THEN 

F(L5 WC(L5 J>P(L5 J)VDELT1 -D_L_AVE/DELZl ••2*(C(L5 J-l)- 
. 2*C(L5J)+BC L5*C0NV>C_K*(BC_L5*C0NV-C(L5J))**2/DELZ1/DELZ1- 
. C K*C(L5 J)*(C(L5 J-l )-2*C(L5 J)+BC_L5*C0NV)/DELZ1/DELZ1 - 
. C(L5J)/C(LlJ) , ((C(LlJ>-P(LlJ)yDELTl-D_L_AVE/DELZl"*2* 

. (C(L1 J-l )-2*C(Ll J)+C(L1 J- 1 )>+C(L4 J)*(C(L1 J-l >- 
. C(L1J-1)V(2*DELZ1)>+R1*C(L1J)*ALF*RATE_C 

F(L4)-(BC L5*CONV-C(L5,J))/DELZ1+(150*(1 -EPSEX)«2*VISC_F* 

. C(L4j)/D_P/D_P/EPSEXyEPSEX/GC/2.7845) 


ELSE 

F(L5>=(C(L5J)-P(L5J)yDELTl -D_L_AVE/DELZ1 **2*(C(L5 J+l>- 
. 2*C(L5J>+C(L5J-1))-C_K*(C(L5J+1)-C(L5J))**2/DELZ1/DELZ1- 
. C K*C(L5 J)*(C(L5 J+l )-2*C(L5 J}+C(L5 J-l )yDELZl/DELZl - 
. C(L5 J)/C(L1 J)*((C(L1 J)-P(L1 J))/DELT1 -D_L_AVE/DELZ1 **2* 

. (C(L1J+1)-2*C(L1J)+C(L1J-1))+C(L4.J)*(C(L1 J+l)- 
. C(Ll,J-l)V(2*DELZl)Vt-Rl*C(LlJ)*ALF*RATE_C 
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F(UMC(L5.J+1 K(L5 J))/DELZ1-K150*(1 -EPSEXJ^VISCJ* 
. C(L4J)/D_P/D_P/EPS EX/EPS EXJGCfl .7 845 ) 

END IF 


C 

210 RETURN 
END 


SUBROUTINE DIFFEQ1(C1,P1,NJ1,N1) 

IMPLICIT REAL*8(A-H,0-Z) 

C GENERALIZED CALLING PROGRAM FOR BAND(J) TO SOLVE DIFFERENTIAL 
C EQUATIONS TAKING PARTIAL DERIVATIVES NUMERICALLY 

c 

C C ALLED BY: MAIN CALLING PROGRAM 

C 


C 

C 

C 

C 

C 

C 

C 

o 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINES CALLED: 

WRTOUT (FOR DATA OUTPUT) 

BAND (TO SOLVE BANDED TRIDIAGONAL COEFFICIENT MATRIX) 
FUNCT (TO OBTAIN VALUE FOR FUNCTION FOR A GIVEN VALUE 


FOR A VARIABLE) 


LIST OF IMPORTANT VARIABLES: 

A A coefficient described in Newman, Appendix C 
AA fust, AA is F(WORKC*CU). Later AA is the 
value of the derivative df/dc used in Newton’s 
method 

B B coefficient described in Newman, Appendix C 
C variables to be solved for 
CD multiplication factor used in obtaining 
numerical derivatives 
COLD value of C from previous iteration 
CU 2.0 - CD 

D D coefficient described in Newman, Appendix C 
ERR convergence criterion 
F value of function f(C), calculated in FUNCT 
G residual of f(C) calculated with updated C value 
I index used for equation number 
ITCNT index for iteration number 
ITPRT flag used for determining whether intermediate 
calculations are output; for ITPRT =0, only 
converged results are output; for 
ITPRT=1 Jesuits of each iteration are printed. 

J index for node number 
K index for equation number 
M index used in working through nodes used to 
calculate numerical derivatives 
MM used to determine starting node (in relation to 
J) for estimation of numerical derivatives 
N number of equations (no. of variables) 

NJ number of node points 

SAVEC saved value of C 

SUM intermediate value used in calculating G 

TINIER criterion used to avoid working with small numbers 

TINY criterion used to avoid working with small numbers 

TNIEST criterion used to avoid working with small numbers 

WORKC saved value of C; modified when C less than Tinier 

X X value described in Newman, Appendix C 
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C Y Y value described in Newman, Appendix C 

0»*»*»****»»****»*********<i**********»**»***********»********< , *^ ,M, < , **** ,> 

C 

C DIMENSIONS HAVE BEEN SET FOR 6 EQUATIONS AND 101 NODE POINTS; IF 
C rr IS DESIRABLE TO INCREASE THE NUMBER OF EQUATIONS. CHANGE THE 6 
C IN THE DIMENSIONS TO WHATEVER NUMBER YOU WANT, AND CHANGE THE SECOND 
C DIMENSION OF D TO 2N+1, WHERE N IS THE NUMBER OF EQUATIONS. IF MORE 
C NODE POINTS ARE DESIRED, CHANGE THE 101 IN THE DIMENSION STATEMENTS TO 
C WHATEVER YOO iP pp 

REAL*8 C1(14,201),P1(14,201) 

COMMON/OLD/ AA(14)^UM(14),COLD(14,201) 
COMMON/BND/A(14,14),B(14,14).C(14.201).D(14,29),X(14,14), 

.Y(14, 14),G( 14)^^JJTPRTJTCNT.F(14)J>( 14,201 ) 

DATA TINY.TINIERTNIEST ERR/1 .0D-10.1.0D-15.1 .0D-20.1.0D-8/ 

DATA CU,CD/1. 0001. .9999/ 

C „ 

C ITCNT INITIALIZED HERE, AND INITIAL VALUES FOR VARIABLES PRINTED OUT 
C IFITPRT*1. 

C 

ITPRT=0 

itcnt«o 

NJ-NJ1 

N=N1 

IF (ITPRT.GT.0) CALL WRTOUT2 
DO 5 I1-1.N1+1 
DO 5 12=1,NJ1 
C(I1J2)-C1(IU2) 
pau2>-piau2) 

5 CONTINUE 

c 

C LOOP BEGUN FOR ITERATIONS 
C 

DO 75 rrCNT- 1.10 
C 

C COLD ARRAY SET UP 
C 

DO10K-1.N 

DO10J-LNJ 

COLD(KJ)-C(KJ) 

10 CONTINUE 
C 

C LOOP BEGUN TO MARCH THROUGH EACH NODE POINT. SUBSEQUENT CALCULATIONS 
C PERFORMED AT EACH NODE POINT. G VALUES ALSO SET AT -F(I). 

C 

DO60J-1.NJ 
CALL FUNCTl(J) 

DO 15 1*1 
SUMa>-0.0 
G(i>=-Fa) 

15 CONTINUE 
C 

C THIS IS THE PLACE THE DERIVATIVES ARE CALCULATED. MM IS SET 
C TO INDICATE THE INTERVAL WHERE THE DERIVATIVES ARE TO BE CALCULATED 
C ON RELATION TO J). 

C 

IF (J.EQ.l) THEN 
MM-0 

ELSE IF (J.LT.NJ) THEN 
MM— 1 
ELSE 
MM— 2 
END IF 

DO 50 M=MMMM+2 
C 
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C ORIGINAL VALUES OF C STORED IN SAVEC AND WORKC 
C 

DO 50 K=1.N 
S A VEC=C(K. J+M ) 

WORKC=SAVEC 


C 

C DERIVATIVES CALCULATED FOR SMALL VALUES OF C (LESS THAN TINY) 

C 

IF (ABS(WORKC).LT.TINY) THEN 
IF(ABS(WORKC).LT.TINIER)WORKC=SIGNCnNIER,WORKC) 

C(K.J+M>= 1.2*WORKC 
CALL FUNCTl(J) 

DO 20 I-1.N 
AA(D=-F(I) 

20 CONTINUE 

C(KJ+M)=l.l*WORKC 
CALL FUNCTl(J) 

DO 25 i*i>r 
AA(D=AA(I>f4.0* F(I) 

25 CONTINUE 

C(K.J+M)=WORKC 
CALL FUNCTl(J) 

DO 30 1«1J4 

AA(D=(AA(I)-3.0*F(I))/(0.2*WORKC) 

30 CONTINUE 

C 

C DERIVATIVES CALCULATED FOR LARGER VALUES OF C (GREATER THAN TINY) 
C 

ELSE 

C(K.J+M)=WORKC*CU 
CALL FUNCTKJ) 

DO 35 1=1 Ji 
AA(I)=F(I) 

35 CONTINUE 

C(KJ+M)=WORKC*CD 
CALL FUNCTKJ) 

DO 40 1=1 Js’ 

AA(IHAA(D-F(D)/((CU-CD)*WORKC) 

40 CONTINUE 

ENDIF 

C(K, J+M >=S AVEC 
C 

C VALUES FOR A3J3.X AND Y GIVEN. SUM IS ALSO INCREMENTED 
C 


DO 45 I-1.N 

SUM(I)=SUM(IH-AA(I)*C(KJ+M) 

IF (M.EQ.-2) Y(LK)=AA(I) 

IF (M.EQ.-l) A(LK)=AA(I) 

IF (M.EQ.0) B(I.K)=AA(I) 

IF (M.EQ.1) DaJC)=AA(I) 

IF (M.EQ.2) Xa.K)=AA(I) 

45 CONTINUE 

50 CONTINUE 

DO 55 1=1^1 
G(I)=G(I)+SUM(D 
55 CONTINUE 

C 

C BAND CALLED TO SOLVE THE BLOCK TRIDIAGONAL MATRIX 


60 

C 

C 

C 


CALL BAND2(J) 
CONTINUE 


'ONVERGENCE CRITERION CHECKED. IF ANY VALUE OF RELATIVE CONVERGENCE 
:qr any VARIABLE IS GREATER THAN THE CONVERGENCE CRITERION. A NEW 
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C ITERATION IS BEGUN 
C 

DO 65 K=1.N 
DO 65 J=1,NJ 

IF(DABS(C(K.J)).GT.TNIEST) THEN 
IF(DABS((C(K_J)-COLD{K.J)VC(K.J)).GT£RR) GO TO 70 
ENDIF 

65 CONTINUE 
GO TO 80 

70 IFOTPRT .GT. 0) CALL WRTOUT2 
75 CONTINUE 
80 CONTINUE 
DO 95 11*1,N1 
DO 95 I2=1.NJ1 

ciau2)-cau2) 

95 CONTINUE 
RETURN 
END 

SUBROUTINE WRTOUT2 
IMPUCIT REAL*8(A-H.O-Z) 

COMMON/BND/A(14.14).B(14.14),C(14,201).D(14,29).X(14,14). 

.Y(14,14),G(14)J^J^JJTPRTJTCNT,F(14) 

IF OTCNTNE.0) WRITE («,99)ITCNT 
WRITE (*.100) 

DO 1 K-1.NJ.2 

WRITE(M01>K.(C(I.K)J«1.N) 

1 CONTINUE 

99 FORMATC ITCNT='J2) 

100 FORMATC J Cl C2 C3 

C4 C5 C6'f) 

101 FORMAT(lXJ3,6(lPE16.8)) 

RETURN 

END 

C BLOCK TRIDIAGONAL MATRIX SUBROUTINE 
SUBROUTINE BAND2(J) 

IMPLICIT REAL*8(A-H,0-Z) 

DIMENSION E(14,14.201) 

COMMON/BND/A(14.14).B(14,14),C(14,201).D<14,29),X(14,14) > Y(14.14), 
.G( 1 4) JJ.NJ JTPRT JTCNT.F( 1 4 ) 

101 FORMATC0DETERM=0 AT J='J4) 

IF (LEQ.l)THEN 
NP1=N+1 
D0 2I-1.N 

D(L2*N+1)=G(D 
DO 2 L=1.N 
D(LL+N>»X(LL) 

2 CONTINUE 

CALL MATINV2(Ni*N+l JDETERM) 

IF(DETERM.EQ.O) WRITE (2,101) J 
D0 5K-1N 

EflCNPU)«D(K.2*N+l) 

D05L-1.N 

E0U-1KD(K,L) 

X(K.L>=-D(K.L+N) 

5 CONTINUE 
RETURN 

ELSE IF(J.EQ.2)THEN 
IX) 7 1=1 JN 
DO 7 K=1,N 
D0 7U1.N 

D(LK)=D(I,K>t-A(I.L)*X(L.K) 

7 CONTINUE 
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ELSE IF(J.EQ.NJ) THEN 
DO 10 1=1, N 
DO 10L-1.N 

G(I)=G(I)-Y(LL)*E(L,NPl,J-2) 

DO 10 M=1J4 

A(IX>=A(IX>+Y(I.M)*E(M,LJ-2) 

10 CONTINUE 
ENDIF 
DO 12 1=1 
D(LNP1)=-G(I) 

DO 12 L=1,N 

DOXIPl)=E)aNPlHA(IX)*E(UNPU-l) 

DO 12 K=1.N 

BXK)=BaJCKA(IX)*E(UU-l) 

12 CONTINUE 

CALL MATINV2(NJ^P1X>ETERM) 
IF(DETERM.EQ.O) WRTTE(X101) I 
DO 15 K=1,N 
DO 15 M=1.NP1 
ErtLMJ>=-D<K.M) 

15 CONTINUE 
IF(JXQNJ)THEN 
DO 17 K=1.N 
C(KJ)=E(K,NP1J) 

17 CONTINUE 

DO 18 M=NJ-1,1.-1 
DO 18 K=1N 
C(1CM>=E(KXIP1,M) 

DO 18 L=1.N 

C(K,M)=C(K>IKE(KXX1)*C(UM+1) 

18 CONTINUE 
D019U1.N 

DO 19 K=1N 

C(K. 1 )=C(K,1 >+-X(KX)*C(L3 ) 

19 CONTINUE 
ENDIF 
RETURN 
END 

C 

C MATRIX INVERSION SUBROUTINE 
SUBROUTINE MATINV2(N,MXETERM ) 

IMPLICIT REAL* 8(A-H.O-Z) 

DIMENSION ID(14) 

COMMON/BND/A(14,14).B(14,14),C(14,201),D(14.29) 
DETERM=1.0 
DO 1 I=1.N 
1 ID(D=0 
DO 18 NN=lXf 
BMAX=0.0 
DO 6 1=1X1 
IF(ID(I).EQ.0)THEN 
DO 5 J=1.N 
IF(ID(J)XQ.0)THEN 
IF(DABS(B(U)).GTXMAX) THEN 
BMAX=DABS(B(LJ)) 

IROW=I 

JCOL=J 

ENDIF 

ENDIF 

5 CONTINUE 
ENDIF 

6 CONTINUE 
IF(BMAXXQ.0.0)THEN 

DETERM=0.C 
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RETURN 

ENDIF 

ID(JC0L)=1 

ff(JCOL_NEJROW) THEN 

9 DO10J-1J4 

SAVE-B(IROW,J) 

B(IROWJ)»B(JCOLJ) 

B(JCOLJ>=SAVE 

10 CONTINUE 
D011K=1.M 

SAVE-D0ROW.K) 

D(IROW.K)-D<JCOL.K) 

D(ICOL.K)*SAVE 

11 CONTINUE 
ENDIF 

FF = 1 .0/B( JCOUJCOL) 

DO 13 J-LN 

13 B(JCOUJ>-B(JCOLJ)*FF 
DO 14 K-1.M 

14 D(JCOUK)-D(JCOLJC)*FF 
DO 18 1=1 JST 

IF(I.NEJCOL)THEN 

15 FF » B(IJCOL) 

D016J-1J4 

16 B(LT) = BOJ) -FF*B(JCOLJ) 
DO 17 K=1.M 

17 D(LK) = D(LK) -FF*D(JCOL,K) 
ENDff 

18 CONTINUE 
RETURN 
END 


FUNCTION RE (G.TEMP.MW) 

C TNIS FUNCTION CALCULATES THE PARICLE REYNOLDS NUMBER ASSUMINC THAT 
C THE MOLECULAR WEIGHT OF TNE GAS IS EQUAL TO THAT OF CARRIER GAS. 
IMPLICIT REAL*8(A-H,0-Z) 

REAL* 8 LEN.MW 

COMMON/PRIME/GNLRAJIA VEPSEX.EPSIN ALF.RHOS ALPHA1 

COMMON/GAS/INERT .NCOMP 
DATA IFLAG/0/ 

IF (IFLAGEQ.O)THEN 
CONST=2.*RA 
IFLAG=1 
ENDIF 

RE=CONST*MW*ABS(G)/VIS(TEMP) 

RETURN 

END 

SUBROUTINE IST_Z(METHOD,T .PTOT.Y 1 1 , Y1ZY13.Y14.Q1 ) 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON/EQLJB/PP(4)3(4). V(4) J*0(4) J J I(4)JG(4XX1 (4),Y1 (4) 

COMMON/NCY/NC1 
REAL*8 Ql(4) 

INTEGER LNUM 
EXTERNAL FCN.FDER 

DATA XTOLFTOULNUM/l.OE-12.1 .OE-10.0.50/ 

DATAP0/U1,1,1V 
DATA R/555/ 

T G=T 

NC=NC1 

Y1(1)=Y11 

Y1(2)=Y12 

Y1(3)=Y13 

Y1(4)=Y14 


F-18 



DO 1=1 .NC 

pp(D=yi<d*ptot 

END DO 
Z=1.0E-32 

IF(PPO).LEJLAND.PP(2).LE.ZAND.PP(3).LE.Z.AND.PP(4).LE.Z)THEN 
DOI=l,NC 
Q1(D=0- 
END DO 
RETURN 
ENT IF 

VOK81.2983138-.21 1 18560043*T+1^87732293D-4*T*TV44/100 
V(2W1769.035 

V(3)=-l .63787991 2E-5T+.0096 1297026 
V(4)=V(3) 

BO >=6864.900013 1 *EXP(-.019625791466*T) 

IF(TXT.610.) THEN 

B(2MJ597278759E-7*EXP(9628.9655743/T) 

ELSE 

B(2K-8089066684E-7*EXP(91 15.734593/T) 

END IF 

IF(T1£J32)THEN 

B(3>=3.2694515539E-7T+4.39988799E-4 

ELSE 

B(3K.90864008E-5 *T-4. 1 4400420E-2 
END IF 
B(4)=B(3) 

TERM 1=0. 

DO 1=1 .NC 
IF(PP(I).GT.O)THEN 
TERMl=B(I)*PP(I)**PO(I)-t-TERMl 
END IF 
END DO 
SUM=0. 

DOI=lJ4C 
IF(PP(I).LE.O.) THEN 

Qia>=o. 

ELSE 

Qia>=va)*Barppa)'*poav(i+TERMi) 

SUM=SUM+Q1(I) 

END IF 
END DO 

IF(METHOD.EQ.l)THEN 
RETURN 
END IF 
DO 1=1 .NC 
Xia>=Ql(D/SUM 
IF(XI(I).GT.0) THEN 
PI(I)=PPa)/XI(I) 

ELSE 

PI(I)=0. 

END IF 
END DO 
DO 1=1 .NC 
IF(PP(I).LE.O.) THEN 

xia^o 

ELSE 

xia>=vavpoa)*ijoGo+B(D*pia)**poa)) 

END IF 
END DO 
X=X1(1) 

DO I=2J9C 
IF(X1(I).LTJ()THEN 
X=X1(I) 

END IF 
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END DO 

IF(X IX. 1.0E-17) GO TO 80 

CALL NEWTN(FCN JDEJULXTOUFTOUNLIMJ) 

DO 1=1 .NC 
IF(PP(I).LE.O) THEN 

xkih>. 

ELSE 

parti - poarx/va) 

IF(PART1 ,GT.73)PART1 =73 
PI(IHEXP(PART1>-1 )/B(l) 

xi(i)-pp(iypi(D 

END IF 
END DO 
TOT_Q-0 
DO I-1.NC 
IF(PP(I)JX.O) THEN 

Qian). 

ELSE 

Qia>»va)*BarPi(D**po(D/(i+Ba)*pi(D**po(D) 

TOT_Q=TOT_(^XI(D/Q1 (I) 

END IF 
END DO 
DO I-1.NC 

Qi(D=iyror_Q*xi(i) 

END DO 
80 RETURN 
END 

REAL FUNCTION FCN(X) 

IMPUCIT REAL*8<A-RO-Z) 

COMMON/EQUB/PP(4)X(4),V(4),PO(4) 

COMMON/NCY/NC 1 

NC=NC1 

SUM-0. 

DO 1=1 JVC 
IF(PP(I).GT.O) THEN 
PARTI =PO(I)*X/V(I) 

IF(PART1 .GT.73 )P ART 1 =73 
SUM=SUM+PP(I)/((EXP(PART1 )-l)/B(D)**(l VPO(D) 
END IF 
END DO 
FCN=SUM-1 
RETURN 
END 

REAL FUNCTION FDER(X) 

IMPUCIT REAL*8(A-H,0-Z) 

COMMON/EQUB/PP(4)X(4) > V(4XPO<4) 

COMMON/NCY/NC1 

NC—NC1 

SUM-0. 

DO 1=1 .NC 
EF(PP(I).GT.O) THEN 

PART3=poarx^a) 

IF(PART3LT32)THEN 
PARTl=-PPaVBaWa)*HXP(PART3) 
PART2=((EXP(PART3)-l)/B(D)**((l+PO(DVPO(I)) 
SUM-SUM+PART1/PART2 
END IF 
END IF 
END DO 
FDER=SUM 
RETURN 
END 
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SUBROUTINE NEWTN(FCN,FDER,X.XTOL,FTOL.NLIMJ) 

IMPLICIT REAL*8(A-H,0-Z) 

INTEGER NUMJJ 
FX=FCN(X) 

DO J=1NUM 
DELX*FX/FDER(X) 

X=X-DELX 

FX=FCN(X) 

IF (ABS(DELX).LEXTOL)THEN 
RETURN 
END IF 

IF(ABS(FX).LE.FTOL) THEN 
RETURN 
END IF 
END DO 
I=-l 

PRINT 200, NUM.XJX 

200 FORMAT(/TOLERANCE NOT MET ' J4/ ITERATIONS X= \ 

2E1Z5/ F(XKE115) 

RETURN 

END 

FUNCTION CPGAS(TEM,Y) 

C THIS FUNCTION CALCULATES THE HEAT CAPACITIES OF CMRIER GAS IN BTU/#MOLE/R 
IMPUCIT REAL*8(A-H,0-Z) 

REAL*8 A(4)3(4),C(4)J)(4),Y(4) 

COMMON/GAS/INERT*NCOMP 

COMMON/NCY/NC1 

CC02 

DATA A/36.1 U3. 46.29. ,29.1/ 

CH20 

DATA B/4.233E-Z.6880E-Z.2199E-24.158E-2/ 

CN2 

DATA C/-2.887E-5,.7604E-5,.5723E-5,-.6076E-5/ 

C 02 

DATA D/7.464E-9 t -3.593E-9,-2,871E-9,1.311E-9/ 

NC=NC1 

T=TEM/1 .8-273.15 
IF (INERT.EQ.1) THEN 
CPGAS=0. 

DO I=1NC 

cp=AaHBa)*T^a)*T*T^Darr*T*T 
CPG AS=CP* Y(I)/4 . 1 8669+CPG AS 
END DO 
ELSE 

CPGAS=4.97 

ENDIF 

RETURN 

END 

RUCTION CVSCTEM?) 

IMPUCT REAL*8(A-H t O-Z) 

C THIS FUNCTION CALCULATES TNE HEAT CAPACITY 
C BTU/LB/R. 

CPS=0.2 

RETURN 

END 

REAL FUNCTION KG AS (TEMP) „ _ 

C THIS FUNCTION CALCULATES THE THERMAL CONDUCTIVITY OF CARRIER GAS ASSUMING 
C A LINEAR FUNCTION OF TEMPERATURE AND BASED ON VALUES AT 492 AND 672 R. 
CBTU/MIN/FT/R 

IMPUCIT REAL*8(A-K.: -Z) 
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COMMON/G AS/INERT J^COMP 
IF (INERTEQ.l) THEN 
KGAS=3.88E-7*TEMP+0.4052E-4 
ELSE 

KGAS=1.667E-6*TEMP+6. 1 E-4 
ENDIF 
RETURN 
END 


FUNCTION VIS (TEMP) 

IMPLICIT REAL*8(A-H,0-Z) 

CTHIS FUNCTION CALCULATES THE VISCOSITY OF CARRIER GAS AS A LINEAR FUNCTION 
C OF TEMPERATURE (LB/MIN/FT). 

COMMON/GAS/INERT .NCOMP 
IF (INERT.EQ.1) THEN 
C VIS-1.0E-6TEMP+1.65E-4 

VIS--.0102007812+5384663937E-5*TEMP-8.7973727E-8*TEMP*TEMP+ 

2 4.81 1387495 E-11*TEMP*TEMP*TEMP 

ELSE 

VIS=0.9444E-6"TEMP+2.863E-4 

ENDIF 

RETURN 

END 


FUNCTION RHOGOTLP) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 LEN 

C THIS FUNCTION CALCULATES THE MOLAR DENSITY OF AN IDEAL GAS IN 
CLBMOLES/CVFS. 

COMMON/P RIM E/GN2JIA.RAV.EPSEX,EPSIN.ALF,RH0S,ALPHA1 

DATA R/555./ 

RHOG=P/R/TR 

RETURN 

END 


FUNCTION EFFD(ICOMP,G.TEMPJlHO.PT.YO) 

C THIS FUNCTION CALCVLATES TNE EFFECTIVE AXIAL DIFFUSIVITIES IN A PACXED BED 
C USING THE EDWARDS AND RICHARDSON CORROLATION. (FT*FT/MIN) 

IMPLICIT REAL*8(A-H.O-Z) 

REAL*8 LAMBDA 1,LAMBDA2XEN,Y0(4) 

COMMON/PRIM E/GNZRA.RAVEPSEX.EPSINALF.RHOSALPHA1 


DATA BFLAG/0/iAMBDAl/0.73/ 

IF(IFLAG.EQ.O)THEN 
CONST *2.*RA/EPSEX 
IFLAG-1 
ENDIF 

DIF*DIFF(ICOMP,TEMP,PT.YO) 

EFFD=LAMBDAl*DIF+CONST*ABS(G)*LAMBDA2(G > DIF,RHO)/RHO 

RETURN 

END 


FUNCTION EFFK(G.T.CPJIHO.P.YO) 

IMPLICIT REAL*8(A-H,0-Z) 

C THIS FUNCTION CALCULATES THE EFFECTIVE AXIAL THERMAL CONDUCTIVITY OF A 
C PACKED BED IN BTU/rT/MIN/F. 

COMMON/NCY/NC1 
REAL*8 YO(4) 

NC=NC1 

EFFK=0. 

KK=0 

DOIl=lNC 

SUM=CP*RHO*EFFD(Il,G,TjlHOJ > ,YO) 

IF(SUM.GT.0)KK=KK+1 

EFFK=SUM+EFFK 
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END DO 
EFFK=EFFK/KK 
RETURN 
END 

REAL FUNCTION LAMBDA2(G,DB\RHO) 

C THIS FUNCTION CALCULATES THE DIMENSTONLESS PARAMETER OF THE EDWARDS AND 
C RICHARDS CORROLATION MODIFIED FOR SMALL DIAMETER PARTICLES. 

IMPLICIT REAL*8(A-H.O-Z) 

REAL*8 LEN 
DATA IFLAG/0/ 

COMMON/PRIME/GN2,RA,RAVJPSEX f EPSINALF,RHOS > ALPHAl 

IF(IFLAG.EQ.O)THEN 

IF(RA.GT.0.00492)THEN 

PE=2. 

ELSE 

PE=406.4*RA 

ENDIF 

CONST=2.*RA/EPSEX 

IFLAG=1 

ENDIF 

LAMBDAS l./PE/( 1 .+9.5* DIF/CONST/ABS(G)*RHO) 

RETURN 

END 


FUNCTION DIFF(ICOMP t TEM,Pl,YO) 

C THIS FUNCTION CALCULATES THE MOLECULAR DIFFUSION COEFFICIENTS BY CORRECTING 
C FOR PRESSURE AND TEMPERATURE (FT*FT/MIN). 

IMPLICIT REAL*8(A-H.O-Z) 

REAL*8 LEN,YO(4).V(4),MW(4),DIF(4) 

COMMON/GAS/INERT*NCOMP 
COMMON/NCY /NCI 

COMMON/PRIME/GN2JLUL\V£PSEX,EPSINALF,RHOSALPHAl 
DATA V/26.9,12.7 ,17.9,16.6/ 

DATA MW/44.01,18.016.28.013,31.999/ 

NC=NC1 

K=ICOMP 

P=Pl/760. 

T=TEM/1.8 
DO 1=1. NC 

PART1=((MW(K>+MW(D)/MW(K)/MW (I))** -5 
PART2=(V(K)**(l/3)+V(I)**(173))**2 
DIF(I)=P ART 1 /P ART2 *T* * 1 .75/P* 1 .OE-3 
END IX) 

SUM=0. 

DO 1=1, NC 
IF(I.NE.K)THEN 
SUM=SUM+YOaVDIF(D 
ENDIF 
END DO 

DIFF=( 1 - YOflO )/S UM*3 .8^4 5/60. 

RETURN 

END 


FUNCTION HFILM(MW,TEMP,REY,CP) 

C THIS FUNCTION CALCULATES THE FLUID FILM HEA T TR ANSFER COEFFICIENT 
C IN BTU/SQ FT/MIN/R USING THE CORRELATION OF PETROY AND THODOS. 
IMPUCIT REAL* 8( A-H.O-Z) 

REAL* 8 ID.KGAS.KGUENMW 

COMMON/PRIME/GN2JlA,RAV t EPSEX,EPSINALF,RHOSALPHAl 
COMMON/GAS/INERT .NCOMP 
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KG=KGAS(TEMP) 

PR=CP/MW* VIS(TEMP)/KG 

HFILM=OJ57/EPSEX*REY**O.64*PR**OJ3*KG , 0.5/RA 

RETURN 

END 

C FUNCTION DHCAR(TEMPJ>) __ Tr . 

C THIS SUBROUTINE CALCULATES HEAT OF ADSORPTION OF CARRIER GAS ONTO THE 
C ACTIVATED CARBON TIMES THE TEMPERATURE DERIVATIVE OF THE SOLID PHASE 
C CARRIER GAS CONCENTRATION AT THE BED PRESSURE (BTU/# SOUD/R). 

C IMPLICIT REAL*8(A-H,0-Z) 

C REAL*8 LEN 

C COMMON/GAS/INERT.NCOMP 

C COMMON/PRIME/GN2.RA.RA V EPS EXALF.RHOS ALPHA 1 
C DATA R/l .9872/.A/1.28E-9/3/3 15 1 J 
C 

C IF(INERT.EQ. 1 ) THEN 
C DH*R*B 

C DHN2*-DH*A*B*EXP(B/TEMP)*P/TEMP/TEMP 
C ELSE 
C DHN2-0. 

C ENDIF 
C RETURN 
C END 

FUNCTION DHADS (ICOMP.T) _ „ 

C THIS FUNCTION CALCULATES THE ISOTERIC HEAT OF ADSORPTION. (BTU/#MOLE) 
IMPLICIT REAL*8(A-H,0-Z) 

R£AL*8 LEN 

COMMON/PRIME/GN2,RAjRAV ,EPSEX.EPSIN.ALF,RHOS,ALPHAl 
IF(I COMPAQ .2) THEN 
DHADS=20400.0 
ELSE 

DHADS=20000.0 

ENDIF 

RETURN 

END 
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APPENDIX G 


FL0W3M0L FORTRAN CODE 


c A BED WITH THREE DIFFERENT MATERIALS. IN THIS CASE, 13X.SIIJCA GEL AND 13X 
c 

C this is the main roudn. the initial values of madx C and parameters are 
C called by "INITIAL _Z" subroutine, the main routine then calls the "FUNCT2_Z" 

C subroutine to solve the discretized partial diffential equations (pde's). 

C after convergence, the routine calls the "DIFFEQ1" subroutine, which is 
C the maine routine for solving the momentum and the pressure equations, 

C if it is desire to solve these two equations as the time progresses.C 
IMPLICIT REAL*8(A-H.O-Z) 

REAL*4 PUT 1 .201 ).QP( 1 4.20 1 )J , L_TIME,T_TIME 
COMMON/BND Z/P(14,201),C(14.201),U_F1.Z 
COMMON/PROP_D_Z/DELZ1J)ELT1J)ELTJ>ELZJICJIJ^JJLLL 
COMMON/INDIC/L1 X2X3X4J-5 J-6 
COMMON/INDl/IND(4) 

OPEN (50.FILE='ASCnX)AT.STATUS=’NEW’JlECL=32766) 

OPEN (66,FILE='C0N_C02.DAT,STATUS='NEW’) 

OPEN (88,FILE= , C0N_H20X»AT.STATUS=’NEW’) 

OPEN (99,FILE=TEM.DAT,ST ATU S=’NEW) 

C WRITE HEADER DATA TO ACSH FILE 
WRITE(50,42) 

C 

C INITIALIZE THE C ARRAY WITH THE INITIAL GUESSES OF THE SOLUTION 
C 

CALLINITIAL_Z 

ICOT-1 

T_TIME=0 

c start marching through time 
DO 301 LL= 1,9000 

c call funct2 z subroutine to solve the PDE's by numerial method 
CALL. FUNCT2.Z 
c accumulate the time steps 

T TIME=T TIME+DELT*Z/U_F1*60. 

DO 74 MilJ^J 

QP(1.M2)»=C(1.M2)* 10.73 D0»C(L1,M2)*760/14.696 
QP(2*M2>=C(2M2)* 10.73DO*C(L1.M2)*760/14.696 
QP(3M2)=C(LUd2>460. 

QP(4Jd2)=C(L2Jd2V460. 

QP(5,M2>*C(L3.M2)-460. 

74 CONTINUE 

WRTTE(*,*)W0XLJLT_TIME 

WRITE(*,*)QP(1,6),QP(1.25).QP(1.50),QP(1,75),QP(1,101) 

WRITE(*, *)QP(2, 1 0),QP(2^5XQP(2^0),QP(2 > 75XQP(2,1 01 ) 
WRTTE(*.*)QP(3.10),QP(3^SXQP(3^0XQP(3.75).QP(3.101) 
WRTTE(V)QP(4.10),QP(4,25).QP(4,50).QP(4,75).QP(4.101) 

WRTTE(*.*)W0XLn.T_TIME 
C WRITE(*.*)n.T_TIME 

C WRTTE(*,*)QP(13),QP(1.37),QP(1,75),QP(1.112XQP(1.150) 

C WRITE(*,*)QP(2J),QP(i37),QP(2,75),QP(2,l 12),QP(2.150) 

C WRITE(*,*)QP(34),QP(3,37),QP(3,75),QP(3,1 12).QP(3.150) 

DO 520 J=l,151 
PL(1J>=QP(1J) 

PL(2J)=QP(2J) 

PU3J)=QP(3J) 

PU4JhQP(4J) 

520 PL(5J>=QP(5J) 

PL_TIME=T_TIME 

ISAMP=25 

IF((LUISAMP)*ISAMP.EQLL) THEN 


G-l 



WRITE(50,43)PL TIME.PL(1.6),PL(lJ5).PL(U0).PLa.75)J > L(U01) 

St ,PU2.6).PU2a5).Pm50),PL(2,75).PLai01) 

& .PL(3,6).PLC3a5).PU3.50),PL(3.75).PU3.101) 

& ,PL(4,6),PU4i5).PU4^0),PU4,75),PU4,101) 

& .PU5.6XPM5i5).PL(5^0)J , U5.75XPL<5.101) 

ENDIF 

DO 78 I1-1.N 
DO 78 12=1 
PaU2)*CaU2) 

78 CONTINUE 
200 CONTINUE 
301 CONTINUE 

42 F0RMAT(lX,TIME,ppC02@ l,ppC02@2,ppC02@3,ppC02@4,ppC02@5\ 

& ',ppH20@ l,ppH20@ZppH20@3,ppH20@4,ppH20@5', 

St \T gu@l,T gts@2,T g«s@3,T gis@4,T g«j@5’ , 

Sl \T bed@l,T bcd@2,T bed@3.T bed@4,T bed@5\ 

St , ,Tw«ll@l,Tw»n@2,Tw»ll@3,Twal]@4,Tw*ll@5') 

43 FORMAT(lX,26(E15.5,’,')) 

44 FORMAT(/5XJ(E15i3X)) 

45 FORMAT(/5X4(E15J3X)) 

46 FORMAT(/5XJ(E153JX)) 

STOP 

END 


C this subroutine is being celled by inline routine once to get the intisl 
c values and the neccessary parameters 
C 

SUBROUTINE INITIAL jL 
IMPLICIT REAL*8(A-H.O-Z) 

REAL*8 K_F(4)J4_AVEJ^_W(4),C_FO(4),YO(4) 

COMMON/BND Z/P(14.201),C(14,201XU_F1.Z 

COMMON/PROP_B_Z/D_LD_E.S_B.CON.WA.CON_WI_Q.CON_WI_K. 

. CP WA.CP wi q,cp_wi_k.ro_wa,ro_wi_q.ro_wi_icx_wajc_wi_q. 

. X W1JCD LMLD.LMA 

COMMON/PROP SJZ 1/CP_S1JIO_S1uMNT1JI_PU3_P1.CON_S1, 

. G_F1.HEAT1(4XM_W 

COMMON/PROP_S_Z_2/CP_S2J*0_S2JUNT2J*_P2J>_P2,CON_S2, 

. G F2HEAT2(4) 

COMMON/PROP.D Z/DELZ1J)ELTU>ELT,DELZJ4C,NJUJLLL 

COMMON/BOUN_(fON/BC_L13C_L23C_L33C_L43C_L53C_L63C_C(4),TO 

COMMON/INDICyLlX2,L3,U.L5,L6 

COMMON/NCY/NC1 

COMMON/GAS /INERT.NCOMP 

COMMON/INDl/IND<4) 

COMMON/PRIME 1/GN1. RA1.RAV1.EPS EX1.EPSIN1.ALF1.RHOS1.ALPHA11 
COMMON/PRIME 2/GN2.RA2JlAV2.EPSEX2£PSIN2ALF2,RHOS2.ALPHA12 
DATA INERT.NCOMP/U/ 

C 

C INITIALIZATION 
C 

DATAZ.D_LD_E.S_B.CON_WA.CON_WI_Q,CON_WI_K,CP_WA. 

. CP WI Q,CP WI K.RO WAJIO WI_Q,RO_WI_KX_WAjC_WI_Q^_WI_K 
. A.666666667,.155833D0..1666667b0,I.90690D-232.875D0, 

. 29D0..19D0..109848D0..21D0..21DO,489.0D0.3.5DO,16.0DO, 

. 5.41666667D-3.4.1666667D-22.083333D-2/ 

DATA PT,RAl,RAVl,EPSEXl.EPSINl,RHOSl,ALPHAll 
. /8002,4.72441E-3.4.72441E-3.373.317,43..635./ 

DATA RA2,RAV2£PSEX2,EPSIN2.RHOS2ALPHA12 
. /5 2174E-3^2174E-3.373,3 1 7,43 ..575 ./ 

DATA AINTl.CP S1.R0_S1.R_PU>_P1.C0N_S1.HEAT1 
. /635D0.022D0.65.0.4.72441D-03.9.44882D-3..1.-20340JX). 

. -32OO0.DO.-8988.ODO, -89887 
DATA AINT2,CP_SZRO_S2,R_P2X>_P2,CON_S2.HEAT2 
. /575JX),022D0,75.0^2174D-03,1.02548D-2,.l,-l75OO.D0, 


G-2 



. -30000.DO,-8988.0DO,-89887 
DATA G_F.P_TOT.TO 
. /63 .53,15.47 .538.0D0/ 

DATA BC C/.13 187,. 131 87,2.01, 13 .3281/ 

DATA BC_L1 JC_L23C_U3C_L53C_L6 
. /538^38,538.,15.47,15.47/ 

DATA M_W/44..18.^8.J27 

DATA NC.NJ,DELZ1,DELT1/4,101,.008333,.002/ 

DATA R3I/10.73D03.141593D0/ 

DATA IND/1,1.1.1/ 
c number of component 
NC1-NC 

c n u mb e r of equations 
N=NC*2+5 

ALF1=(1.0DO-EPSEX1)/EPSEX1 
ALF2=(1.0DO-EPSEX2)/EPSEX2 
PT=P TOT*760714.696 
SUM Y«0 
G F1=G_F 
G_F2*G_F 

c calculate die mole fraction 
DO10I-1.NC 
Y_F=BC_Cfl)/P_TOT 
SUM Y=SUM_Y+Y_F 
BC_C(1)=P_T0T*Y_F/R/BC_L1 
10 CONTINUE 
c calculate fluid density 

RO_FO=P_TOT/(BC_L1 *R) 
c calc molar superficial velocity 
GN«G F*RO FO/S_B/60. 

U F1=G_F/(S_B * EPS EX 1 ) 

BC_L4*U_F1 
c grid size in dimensionless 
DELZ=DELZ 1 [L 
c time step in dimensionless 
DELT-U_F1 ‘DELT1/Z 

c LI is the gas temp, L2 is the solid temp, L3 is the wall temp, L4 is the 
c velocity, L5 is the total pressure, and L6 is the total pressure witout 
c thermal effect 

c 

L1=2*NC+1 

L2=L1+1 

L3=L2+1 

L4=L3+1 

L5=L4+1 

L6=L5-t-l 

c set the initial guess and the old value of C array; P 
DO20IU1.N 
DO20I2=l.NJ 
PaU2)=0.0D0 
C(UJ2)=0.0D0 
20 CONTINUE 
c set the the first grid to the boundry 
DO 22I1=1,NC 

cau>=Bc_cai) 

22 CONTINUE 
D0 24I1-U 
DO 24 12=2.NJ 

caiJ2)=o. 

Cai+2J2)=BC_Cai+2) 

24 CONTINUE 

c set die initial temperature and pressure 
DO 30I=1,NJ 
P(LU>=BC_L1 
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P(L2J)=BC L2 
P(L3J)=BC L3 
P(L4J>=U_F1 
P(L5J)=BC_L5 
P(L6J)=BC_L6 
C(L1J)=BC_L1 
C(L2J)»BC_L2 
C(L3J>=BC_L3 
C(L4J)=U_F1 
C(L5J)=BC_L5 
C(L6J>=BC_L6 
30 CONTINUE 
RETURN 
END 


c this subroutine is being called by maine routine to compute die variable in 
c C matrix, in this routine first velocity profile is being determined, the 

c conductivity, diffusivity.pososity are being calcu l a t e d in this 

c routine by calling the approperiate subroutine, the routine obtained the 
c C matix in axial and radial directions, it itrates till it conveges to the 
c allowable error 
c 

SUBROUTINE FUNCT2_Z 
IMPLICIT REAL*8(A-H.O-Z) 

REAL'S K Ff4),M A VEJ4_W(5).KGAS,K_FP(4.201 ).C1 (14,201 ). 

. PI (14.201 ),REY_P(20 1 ).KEFF_SIL.KEFF(4),D_L(4) A(4), YO(4)3S(4) 

DIMENSION Q2(4),C2(14,201)J > E_N_M(4),DWDX(4)X»WDT(4) 
COMMON/PRIME 1/GN1.RA1,RAV1.EPSEX13PSIN1.ALF1,RH0S1.ALPHA11 
COMMON/PRIME_2/GN2,RA2.RAVZEPSEX2.EPSINZALF2.RHOSiALPHA12 
COMMON/PROP.S Z 1/CP Sl,RO_Sl.AINT13_Pl.D_Pl.CON_Sl, 

. G_F1.HEAT1(4).M_W 

COMMON/PROP_S_Z_2/CP_S2,RO_SZAINT2Jl_P2J)_P2,CON_SZ 
' . G_F2.HEAT2(4) 

COMMON/PR OLD 7J RO_P(201),CP_P(201).CON_FPP(201), 

. CON LPP(201).D LPP(4.201).H FP(201 ).H_TTP(201 ).H JIP(201 ). 

. H OWPP(201 ),H_FWPP(201 ),Q(4.201 ), VISC_P(201 )3ATE_C 1(201), 

. WM AVE1(201) 

COMMON/BND_Z/P( 14.201 ),C(14,201 ),U_F1.Z 

COMMON/PROP_B_Z/D LD E. S _B . CON_WA.CON_WI_Q.CON_WI_K.CP_W A, 

. cp_wi q.cp wi_k.ro_waTro_wi_q.ro_wi_ilx_wajc_wi_qjc_wi_k. 

. D_LMLD LMA 

COMMON/PROP S_Z/CP_S.RO_S.AINT.R_P.D_P,CON_S,G_F,HEAT(4) 
COMMON/PROP D Z/DELZ1.DELTU)ELTJ)EL2ENC.N^JJLLL 
COMMON/INDIC/Lli2X3.Ui5i6 

COMMON/BOUN CON/BC L13C_L23C_L3£C_U3C_L53C_L6,BC_C(4).TO 

COMMON/DELZ DIFT/D01.D11,D21JD02£>12£>223R 

COMMON/LAYERS/LA YER1.LAYER2 

COMMON/GAS/INERT,NCOMP 

COMMON/NCY /NCI 

COMMON/INDl/IND(4) 

COMMON/PRIMEAjN,RA,RAV,EPSEX,EPSINALF,RHOSALPHA1 
DATA R3I/10.73IXU.141593D0/ 

00=100 

c set the number of grids for different material in the bed 
IF(LL3Q.1)THEN 
IPORE-O 
LAYER 1«6 
LAYER2=50 
EPSP=J2 

DELZ_0LD*DELZ 
c set the under-relaxation coeff 
W0=.2 
Wl=.2 
W2=.2 
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W3=-2 

ENDIF 

IF (WO.LE. 0 .5 )W 0= W 0+.002 

IF(Wl.LE0i)Wl=Wl+.002 

IF(W2.LE 0 .5 ) W 2= W 2+.002 

IF(W3.LE.0J)W3=W3+.OO2 

ITEST=0 

IC0UNT=1 

ICONV=0 

c calculate the surface area for the heat transfer 
ERROR=1.0E-3 
D T=D_E+DJ 
X_W=D_E-DJ 

A C=2*D_I/((D_I+D_E)*X_W) 

A INS*2*D_E/((DJ+D_E)*X_W) 

RO F=C(L5,1)/(C(LU)*R) 

G F=G_F1 

GN=sG_F*RO_F/S_B/60 
c compute parameters for all the grids 
DO 199 J=1*NJ 

c set parameters for middle material silica gel 

IF(J.GEJ-AYER1 .AND. J.LE.LAYER2)THEN 
RA=RA2 
EPSEX=EPSEX2 
EPSIN=EPSIN2 
R P=R P2 
D P=D_P2 
DO 211 Il*=l*NC 
HEAT(11)=HEAT2(I1) 

211 CONTINUE 

c set parameters for ends material in this case 13X on bouth ends 
ELSE 
RA=RA1 
EPSEX*EPSEX1 
EPSIN=EPSIN1 
AINT=AINT1 
R P=R PI 
D P=D PI 
DO 213 11=1*NC 
HEAT(U )=HEAT1 (II ) 

213 CONTINUE 
ENDIF 

C IF(LL~EQ. 1 ) THEN 

R0.F=C(L5J)/(C(L1J)*R) 

YTOT=0. 

c calculate the mole fraction 
DO I1=1,NC-1 

voai)=cauyRo f 

YTOT=YO(Il)+YTbT 
END DO 

YO(NC>= 1 - YTOT 

c ccalculate the average molecular weight 
M_AVE=0. 

d5ii=i*nc 

M_A VE=M_A VE+M _W (1 1 )* Y 0(1 1 ) 

END DO 

WM AVE1(J)=M_AVE 
TEMP=C(L1,J) 

GN=G_F* RO_F/S_B/60. 
c calculate viscocity 

VISC_P(J>=VIS(TEMP)*60 
c calculate reynolds number 
REY=RE(GMTEMP) 

REY.P(JVREY 
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c calculate heat capacity 

CP_P(J>-CPGAS(TEMP.YO) 

c calculate heat transfer coefficient between the pellet and fluid 
H_FP(J>=HFILM(M_AVE.TEMPJIEY,CP_P(J))»60. 
c conver pressure 

PP-C(L5J)*760714.696 
c calculate the thermal dispersion 

CON_LPP(f>=EFFK(GN.TEMP.CP_P(J).RO_F,PP,YO)*60. 
c calculate mass diffustvity 
DOIl-LNC 

D LPP(I1J)-EFFD(I1,GN,TEMP.RO_F,PP,YO)*60. 

IF(D LPPfll J).LT.O) THEN 
D_U>P(IlJ)«D_LPPaU-l) 

END IF 
END DO 
C END IF 
199 CONTINUE 

c heat transfer coefficient between the Quid and the wall 
H.FW-4.0 

c heat transfer coeff between the waal and outside 
H_OW-0.05 
c start itration 

IF(LL_EQ. 1 )H_OLD=3000 
DO 220 D=1JI_0LD 

c set the most recent computed C array to C2 array for check of conversion 
20 DO30I1-1.N 

DO 30 12- UO 

c2au2>-caiJ2) 

30 CONTINUE 
34 DO 190 J-1.NJ 

c since there are diffemt sizes of grids at the boundries of two adjsent 
c materials, the equations must revised. 

F(J.EQ1AYER1)THEN 

ITESTJ-1 

c fraction of actual grid size 
FR-3.750015 
FR-1.0 

c PDE's coefficints 
D01-FR/G+FR) 

D11-(1-FR)/FR 

D21=17FR/(1+FR) 

D02-17O+FR) 

D12-1./FR 

D22»17FIU(1+FR) 

ELSE IF(J.EQ1AYER2)THEN 
ITESTJ-1 
FR« .2666666 
FR-1.0 

D01-FR/(1+FR) 

D11-(1-FR)/FR 

D21-UFR/(1+FR) 

D02-UO+FR) 

D12-1JFR 

D22»UFR/(1+FR) 

ELSE 
ITESTJ-0 
END IF 

c fix the grid size 

IF(J.LE1AYER1 )THEN 
r> FT 7^ =1666666* DELZ OLD 
DELZ-DELZ.OLD 
ELSE IF(J.GTlAYER2)THEN 
DELZ=.2666666*DELZ_OLD 
DELZ=DELZ_OLD 
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ELSE 

DELZ=DELZ_OLD 
END IF 

c set bed and pellet parameter for each material 

IF(J.GE1AYER1 .AND. J.LT.LAYER2)THEN 
RA=RA2 
RAV*=RAV2 
EPSEX=EPSEX2 
EPSIN=EPSIN2 
ALF=ALF2 
RHOS=RHOS2 
ALPHA 1 = ALPHA 1 2 
CP S=CP S2 
R0_S=R0_S2 
AINT=AINT2 
R P=R P2 
D_ P =D_P2 
C0N_S*C0N_S2 
DO 111 11=1 JVC 
HEAT(I1^HEAT2(I1) 

111 CONTINUE 
ELSE 
RA=RA1 
RAVsRAVl 
EPSEX=EPSEX1 
EPSDV=EPSIN1 
ALF=ALF1 
RHOSaRHOSl 
ALPHA 1= ALPHA 1 1 
CP S=CP SI 
RG_S=RO_Sl 
AINT=AINT1 
R_P=R_P1 
D_P=D PI 
CON_S=CON_S 1 
DO 113 11=1 JVC 
HEAT(Il)=HEATl(ll) 

113 CONTINUE 
END IF 

c set fluid parameters 

RO_F=C(L5JV(C(Ll J)*R) 

CP F=CP_P(J) 

H_FS=HjFP(J) 

CON_L=CON_LPP(J) 

DO 11=1 JVC 
D_L(I1)=D_LPP(I1J) 

END DO 

c pec let number for solid 

PE_N_S=U_F1 *RO_S*CP_S*Z/CON_S 
c peclet number for haet in gas 

PE_N_H=U_F1 *RO_F*CP_F*Z/CON_L 
c coefficinet in PDE's after making them dimensionless 
F3=ALF*H_FS*Z*AINT/(RO_F*CP F*U FI) 
F4=H FW*Z*4/(U_Fl*D_I*EPSEX*RO_F*CP F) 
F5=H.FS*AINT*Z/(U_F1 *RO_S*CP_S) 
F6=Z/(RO_S *CP_S* U.Fl ) 

F7=Z*H FW*A C/U_Fl/ROJWA/CPJWA 
F8=Z*H.OW*A_INS/U_Fl/RO_WA/CP^WA 
c co2 partial pressure 

PC02=C(5J)*R*C(L2,J) 
c h2o partial pressure 

PH2Q=C(6J)*R*C(L2J) 
c set dynamic parameters for each section 

IrfJ.OEiAYER: .AND. J.LT.LAYER2)THEN 
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CALL DWDXDT SIL(PC02.PH20,C(LU),C(L2J),C(L5.J). 

. REYJ>(J)J3WDX(2)X>WDT(2)) 

DWDX(1>=0. 

DWDT(1)=0. 

K_F(1>=0. 

K_F(2)=3 

K_F(3>-0. 

K F(4>=0. 

ELSE 

IFOPORE-EQ.DTHEN 

c call to compute the solid amount in equilibrium with gas phase for silica 
CALL DWDXDT 13X(PC02J»H20.C(LU).C(L2J),C(L5J). 

REY P(J)X>WDXX»WDT) 

K_F(1>=3 

K_F(2)=3 

ELSE 

DOI1-1.NC 

ssai)-caiJ) 

END DO 

c call to compute the solid amount in equilibrium with gas phase for 13X 
CALL IST_Z(1,C(L2J),SS,Q2) 

D03I-1.NC 
Q(LJ)=Q2(I>*RO_S 
3 CONTINUE 
END IF 
K F( 1^.017 
K_F(2)=.0035 
K_F(3K05 
K F(4>«.05 
END IF 

c compute the C array for the first grid 
IF(JJEQ.1)THEN 
FLUX 1-0. 

FLUX2-0. 

DO70M1-1J4C 

IF(M1.EQ.1)THEN 

IF(J.GEJLAYER1 AND. J1£JAYER2)THEN 
WOO-O 
ELSE 
WOO=WO 
END IF 
ELSE 
WOO=W1 
ENDIF 

c compute the amount adsorbed in pore of pellet for silica gel 
IF(J.GE1AYER1 AND. J.LEIAYER2)THEN 
Fl-lf *K F(M1 )/R_P/R_P*Z/U_Fl 
A 1 - 1 7(EPS P/DELT+F 1 +RO_S • D WDX (M 1 )/DELT) 

C(NC+M1J)-C(NC+M1J>+W00*(^:(NC+M1J>+A1*(F1»C(M1JH- 

(DWDX(Ml)*RO S+EPS P)*P(NC+M 1 jyDELT-DWDT (M 1 )*(C(L1 J> 
P(LU))/DELT» 

c compute total heat of adsorption 

FLUX1=FLUX1+HEAT(M1)»F1*U_F1/2»(C(M1J)-C(NC+MU)) 
c compute total amount adsorbed 

FLUX2-FLUX2+F1 * U_F 1/Z*(C(M 1. J>-C(NC+M 1 J)) 


ELSE 

c compute the amount adsorbed in solid phase for 13X 
F1=K_F(M1)*AINT*Z/U_F1 
A2=1/DELT+F1 

C(NC+M1J>C(NC+M1J)+W00*(-C(NC+M1J)+1/A2*(F1*Q(MUH 
P(NC+M 1 J)/DELT)) 
c compute total heat of adsorption 

FLUX 1 =FLUX 1 +HEAT(M 1 )*3 .0/R_P*K_F(M 1 )*(Q(M 1 J)-C(NC+M1,J)> 
c compute the amount adsorbed in solid phase for 13X 
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FLUX2=FLUX2+3.0/R_P*K F(M1)*(Q(M1J>C(NC+M1 J)) 

END IF 

70 CONTINUE 

RATE_C 1 (J)=FLUX2 
DO 85 M1=1.NC 
PE N M(M1)=U_F1*Z/D_L(M1) 

A(M1 >=1 .0D0/DELT +2/PE_N_M(M 1 VDELZ**2+1/U_F1/DELZ*C(L4J) 
85 CONTINUE 

c compute molar concentration in the gas phase 
DO90Ml=l.NC 
IF(M1.EQ.1)THEN 
W11=W0 
ELSE 
W11=W1 
ENDIF 

IF(J.GE1AYER1 -AND. J.LEXAYER2)THEN 
F2= 15 *ALF*K_F(M1 )/R _P/R_P*Z/U_F1 
PART1=F2*(C(M1J>C(M1+NCJ)) 

ELSE 

F2=ALF*K F(M1)*3./R_P*Z/U_F1 
PART1=F2*(Q(M1J)-C(NC+MU)) 

ENDIF 

C(M 1 J)=C(M1 J)+W 1 1 *(-C(M 1 J)0/A(M 1 )*(1 .0D0/PE_N_M(M 1 )/ 

. DELZ**2*(BC C(M 1 >+C (M 1 J+ 1 ))- 1 .0D0/U_F1 /DELZ* (-BC_C(M 1 )* 

. BC_U)-PARTr+P(MUVDELT)) 

90 CONTINUE 
c compute gas temperature 

AL1 =1 7DELT+27PE_N_H/DELZ**2+C(L4 J)/DELZ/U_F1 +F3+F4 
C(L1 J)=C(L1. J)+W2* (-C(L 1 J)+l ./AL1 * ( 1 .0D0/PE_N_H/DELZ**2* 

. (BC Ll+C(LlJ+l)H.0D0/(DELZ*U_Fir(-BC_Ll*BC_L4)-F3* 

. (-C(L2J))-F4*(-C(L3.J)KP(L1J)/DELT)) 
c compute solid temperature 

C(L2J)=CfL2,J)-t-W3*(-CfL2J)+DELT*(1.0D0/PE_N_S/DELZ*»2 
. *(BC L2-2*C(L2J)+C(L2J+1))+F5*(C(L1J)-C(L2J))-F6*FLUX1) 

- +P(L2J)) 

c compute wall temper arure 

C(L3J>DELT»(F7»(C(L1.J)-C(L3.J))-F8*(C(UJ>T0))+P(L3J) 

C 

C 

CTHE LAST ROW 

C computaion of C array for the last grid 

c 

ELSE IF(J.EQ.NJ) THEN 
FLUX 1=0 
FLUX2=0 
DO 87 M1=1.NC 
IF(Ml.EQ.l) THEN 

IF(J.GELAYER1 .AND. J.LE.LAYER2)THEN 
W00=0 
ELSE 
WOO=WO 
ENDIF 
ELSE 
W00=W1 
ENDIF 

c compute amount adsorbed in the pore of pellet, silica! gel 
IF(J.GE1AYER1 AND. J.LEJ-AYER2)THEN 
Fi=15.*K F(M1)/R_P/R_P*Z/U_F1 
Ai=W(EPSP/DELT+Fl+RO_S*DWDX(Ml)/DELT) 
C(NC+MlJ)=C(NC+MU)+WOO*(-C(NC+MU>+Al*(Fl*C(MU>f 
(DWDX(M 1 )*RO_S+EPSP)*P(NC+M 1 JVDELT -DWDT(M 1 )*(C(L1 J> 
. P(L1J))/DELT)) 

c compute total heat of adsorption, silical gel 

FLUXl=FLUXl+HEAT(Ml)*Fl*U_Fi/Z*(C(Ml,J)-C(NC+MlJ)) 
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c compute total amount adsorbed, silica gel 

FLUX2*FLUX2+F1 *U_F 1/Z*(C(M 1, J)-C(NC+M 1 . J)> 

ELSE 

c compute amount adsorbed in the solid of pellet, 13X 
F1»K_F(M1 )*AINT*Z/U_F1 
A2-1/DELT+F1 

C(NC+M 1 J}=C(NC+M 1 J>+W00*(-C(NC+M1,J>+1/A2*(F1*Q(M1 J>+ 
P(NC+M1J)/DELT)) 
c compute total heat of adsorption, 13X 

FLUX 1 =FLUX1+HEAT(M 1 )*3 .0/R_P*K_F(M 1 )*(Q(M 1 J>-C(NC+M U)) 
c compute total amount adsorbed, 13X 

FLUX2=FLUX2+3 .0/R_P* K_F(M 1 )* (Q(M 1 J>C(NC+M 1 J)) 

END IF 

87 CONTINUE 

RATE_C 1 (J>FLUX2 

c compute molar concentration of each component 
DO 125 M1-1.NC 
PE_N_M(M 1 )=U_F1 *Z/D_L(M 1 ) 

A(M1)=1.D(VDELT+2JX)/PE_N_M(M1)/DELZ**2+1/U_F1/DELZ*C(UJ) 

125 CONTINUE 
DO 130 M1=1.NC 
IF(M1.EQ.1)THEN 
W11=W0 
ELSE 
W11=W1 
ENDIF 

IFfJ.GELAYERl AND. J.LE1AYER2)THEN 
F2= 15.* ALF* K_F(M 1 )/R_P/R_P*Z/U_Fl 
PART1*F2*(C(M1 J)-C(M 1+NC J)) 

ELSE 

F2=ALF*K F(M1)*37R_P*Z/U_F1 
PART1=F2*(Q(M1J>-C(NC+M1J)) 

ENDIF 

C(MlJ>C(MU>Wll*(^:(WU>lIXVA(Ml)*(1.0DQ/PE_N_M(Miy 
. DELZ**2*(C(M1J-1>+C(M1,J-1))-1.0D0/U_F1/DELZ*(-C(M1J-1)* 

. C(L4 J- 1)>- PARTI +P(M 1 J)/DELT)) 

130 CONTINUE 
c gas temperature 

AL1=UDELT+2VPE N_H/DELZ*»2+C(UJ)/DELZAJ_F1+F3+F4 
C(L1J)-C(LU>+W2*(-C(L1 JH-L/AL1 *(1 .0D0/PE_N_H/DELZ**2* 

. (C(L1 J-l >+C(Ll J-l )>- 1 .0D0/(DELZ*U_F1 )*(-C(Ll J-l )*C(L4 J- 1))- 
. F3*(-C(L2J)>-F4*(-C(L3J))+P(L1J)/DELT)) 
c solid temperature 

C(L2J)=C(L2J)+W3*(-C(L2J>t-DELT*(1.0D0/PE_N_S/DELZ**2 

. *(C(L2J-1>2*C(L2J>+C(L2,J-1 )>t-F5*(C(LlJ>C(L2J)) 

. -F6*FLUX1 )+P(L2J)) 
c wall temperatur 

C(L3J)=DELT*(F7*(C(Ll,J)-C(L3J))-F8*(C(L3J>TO)>+P(L3J) 


C 

C ; ; ; 

C computation of C array for interior grids 
C INTERIOR ROWS 
C 

ELSE 
FLUX 1=0 
FLUX2*0 
DO 198 M1=1,NC 
IF(M1.EQ.1)THEN 

IF(I.GEJ-AYER1 AND. JLE.LAYER2)THEN 
W00=0 
ELSE 
WOO=WO 
ENDIF 
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ELSE 

WOO=W1 

ENDIF 

c compute amount adsorbed in pore of pellet, silica gel 
IF(J.GEXAYER1 .AND. J.LE.LAYER2)THEN 
F1=15.*K F(M 1 )/R_P/R_P*Z/U_F 1 
A1=U(EPSP/DELT+F1+R0_S*DWDX(M1)/DELT) 
C(NC+M1J>=C(NC+M1J>+WOO*(-C(NC+M1,J)+A1*(F1*C(MU>+ 
(DWDX(Ml)*RO_S+EPSP)*P(NC+MlJ)/DELT-DWDT(Ml)*(C(LlJ)- 
P(L1J))/DELT)) 
c cample loti heat of adsorption 

FLUXl=FLUXl+HEAT(Ml)*Fl*U_FiyZ*(C(Ml.J)-C(NC+MlJ)) 
c compute toal amount adsorbed 

FLUX2=FLUX2+F1*U_F1/Z*(C(M1.J>C(NC+MU)) 
c compute amount adsorbed in pore of pellet, 13X 
ELSE 

F1=K F(M1)*AINT*Z/U_F1 
A2=1/DELT+F1 

C(NC+MlJ>C(NC+MlJ)+WOO*(-C(NC+Ml,J>+l/A2 , (Fl*Q(MlJ>t- 

P(NC+M 1 J)/DELT)) 
c compte toal heat of adsorption 

FLUX 1 =FLUX 1 +HEAT(M 1 )*3.0/R_P*K_F(M 1 )*(Q(M1 J)-C(NC+M 1.J)) 
c compute toal amount adsorbed 

FLUX2=FLUX2+3 .0/R_P* K_F(M 1 )* (Q(M 1 J>C(NC+M 1 J)) 

ENDIF 

198 CONTINUE 

RATE_C1(J>=FLUX2 

c if the computaion is where two different sizes of grids are adjsent then 
IF(ITESTJ.EQ.l) THEN 
DELZ=DELZ_OLD 
DO 165 M1=UNC 
PE_N M(M 1 )=U_F1 *Z/D_L(M 1 ) 

A(M 1 V=1 .DO/DELT +2.D0/PE_N_M(M 1 )/DELZ**2*D12+l JX)/U_F1/DELZ* 
. C(L4J>*D11*0 

165 CONTINUE 
DO 170 M1=LNC 
IF(M1EQ.1)THEN 
W11=W0 
ELSE 
W11=W1 
ENDIF 

IF(J.GEJ_AYER1 .AND. I.LEJ-AYER2)THEN 

F2=15.*ALF*K_F(M1)/R_P/R_P*Z/U_F1 

PART1=F2-(C(MU>C(M1+NCJ)) 

ELSE 

F2=ALF*K F(M1)*3./R_P*Z/U_F1 
PART1=F2*(Q(M1J)-C(NC+M1J)) 
c compute molar concentration of gas 
ENDIF 

C(M 1 J>*C(M 1 J)+W 1 1 *( -C(M 1 J>+1 D0/A(M 1 )* (2.0D0/PE_N_M(M 1 )/ 
DELZ**2*(C(M1J-1)*D02+C(M1J+1)*D22)-1.0D0AJ_F1/DELZ* 

. (-C(MlJ*l)*D0l4C(Ml,J+l)*D21-C(Ml.J)*Dll)*C(L4,J-l)-PARTl-t- 
. PfMlJVDELT)) 

170 CONTINUE „ „ 

AL1 =1 7DELT+27PE_N_H/DELZ**2*D12+C(L4 J)/DELZAJ_F1 *D1 1 *0+ 

. F3+F4 
c gas temper arure 

C(L1J)=C(L1J>+W2*(-C(L1 J>+WAL1*(2.0D0/PE_N_H/DELZ**2* 

. (C(L1J-1)*D024C(L1.J+1)*D22)-1.0D0/(DELZ*U_F1)*(-C(L1J-1)* 

. D0l4C(LU+l)*D21-Dll*C(LU))*C(L4J-l)-F3*(-C(L2J)}- 
. F4»(-C(L3 J))+P(D1 Jl/DELT)) 
c solid temperature 

rn 2J)=C( l 2 JWW3 , (-C(L2J><-DELT*(2.0D0/PE_N_S/DELZ , *2 
. *(C(L2J-1)*EX)2-C(L2.J)*D12+C(L2J+1)"D22>+F5*(C(L1 J>- 
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. C(L2J))-F6*FLUX1HP(L2J)) 
c if the Kijsent grids are the same sizes 
ELSE 

DO 161 M1*1,NC 
PE N M(M 1 )=U_F1 *Z/D_L(M 1 ) 

A(M1 M ,D0/DELT+2.D0/PE_N_M(M 1)/DELZ**2+1 .D0/U_F1/DELZ* 

. C(L4J) 

161 CONTINUE 
DO 171 M1=1.NC 
IF(M1£Q.1)THEN 
W11-W0 
ELSE 
Wll-Wl 
ENDIF 

IF(J.GE1AYER1 AND. J.LE-LAYER2TTHEN 
F2- If .• ALF* K_F(M 1 VR_P/R_P*2/U_F1 
PART1*F2*(C(M1J)-C(M 1 +NCJ)) 

ELSE 

F2*ALF*K_F(M1)*3./R_P*Z/U_F1 

PART1«F2*(Q(M1J>C(NC+MU)) 

ENDIF 

c molar concentration in the gas phase 

C(MlJ>=C(MljH-Wll*(-C(MlJHlJX)/A(Mir(1.0DO/PE_N_M(Ml)/ 
. DELZ**2*(C(MU-1HC(M1.J+1))-1.0D0/U_F1/DELZ*(-C(MU-1)* 

. C(L4,J-1»-PART1+P(M1J)/DELT)) 

171 CONTINUE 
c gas temperature 

AL1«17DELT+2JPE_N_H/DELZ**2+C(L4JVDELZ/U_F1+F3+F4 

C(L1J)-C(LU)+W2*(-C(L1JHUAL1"(1.0D0/PE_N_H/DELZ*»2* 

. (C(LlJ-l>+C(LU+l))-1.0D0/(DELZ*U_Fir(-C(LU-irCCUJ-l))- 
. F3*(-C(L2J))-F4*(-C(L3J)>+P(LljyDELT)) 
c solid temperature 

C(L2J)*C(L2J)+W3 , (-C(L2J>t-DELT*(1.0DQ/PE_N_S/DELZ**2 
. *(C(LW-1)-2*C(L2J)+C(L2J+1)HF5*(C(L1J)-C(L2J)) 

. -F6*FLUX1 >t-P(L2J)) 

ENDIF 

c wall t em perature 

C(L3J)-DELT*(F7*(C(Ll.J>-C(L3.J))-F8»(C(L3J>TO))+P(U4) 

c 

ENDIF 

190 CONTINUE 
IF dLLTJIO) THEN 
GO TO 220 
ENDIF 

c check for convergence 
DO200I1-1.NC 
D0 200I2*1.NJ 
IF(C(I1 J2).NE.O) THEN 

IF(ABS(CaU2)-C2aU2))/Cai J2).GT.ERROR) GO TO 220 
ENDIF 

200 CONTINUE 

IF (ILLT.100)GO TO 220 

c call diffeq and compute the total pressure and velosity 
DO 300 12*1 JiJ 
C1(U2)-C(L4J2) 

P1(1J2)*P(L4J2) 

Cl (2J2)-C(L5 J2)*76071 4.696 
PI (2J2)*P(L5 J2)*760yi 4.696 
0(3 J2)=C(L6J2)*7 60 714.696 
PI (3 J2)=P(L6J2)*760./14.696 
C1(4J2)-C(LU2) 

P1(4J2>*P(L1J2) 

300 CONTINUE 

CALL DIFFEQ(C1.P1 JJJJ) 
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DO 400 12=1 J^J 
C(L4J2>=C1(1J2) 
C(L5J2)=Cl(2J2)*14.696/760. 
C(L6J2>=Cl(3J2)*14.696/760. 
400 CONTINUE 
GO TO 210 
220 CONTINUE 
210 RETURN 
END 


c tliit subroutine compute the equilibrium amount adsorbed in the solid phase 
c of pellet, for silica gel 

SUBROUTINE DWDXDT_SIL(PC0ZPH20,TG > TS,P,REYJ)WDX2,DWDT3) 
IMPLICIT REAL*8(A-H,0-Z) 

REAL* 8 KFiENJvTW 

COMMON/PRIMEA3NZRA.RAV.EPSEX,EPSINALFJIHOS^LPHA1 
COMMON/GAS /INERT .NCOMP 
COMMON/P0/PH2O1.XP 
COMM ON/IND 1 /IND(4) 

DATA MW/18/ 

DWDX 1 =DWDX_SIL(PH20,P,TS,TG) 

DWDX2=DWDX1*1545.12*TS/MW 
DWDT3=DWDX 1 *PH201/TS*XP/TS 
RETURN 
END 


c this subroutine calculate the derivitive of pre concentration with respect, 
c to temperature and other componeusilica gel 
c 

FUNCTION DWDX SIUPH202,P,TS,TG) 

IMPLICIT REAL*8(A-H.O-Z) 

COMMON/INDl/IND(4) 

COMMON/P0/PH2O I.XP 
DATA R/l 545.0/ 

DATA C1.C2,C3,C4,C5.C6,C7.C8,C9.C10,C1 1.C1ZC13/-56743359. 

. 63925 247,-9.677843E-3,6.2215701E-7,2.0747825E-9.9.484024E-13, 

. 4.1635019.-5800.2206,13914993,-4.860239E-2,4.1764768E-5, 

. -1 .4452093 E-8.6.5459673/ 

DATA R/l 545.0/ 

ITEST=1 

T1=TS/1.8 

IF(T1.LE/273.15)THEN 

P0=EXP(C1/T1 +C2+C3 *T1 +C4*T1 **2+C5*Tl **3+C6*Tl **4+C7*LOG(Tl )) 
ELSE 

PO=EXP(C8/Tl+C9+C10*Tl-fCll*Tl**2+C12*Tl**3+C13*LOG(Tl)) 

END IF 
P0=PQ/47.880 
PH20=PH202* 144.0 
IF(ITEST.EQ.1)THEN 
PH2Ol=PH20 
IF(PH20.GE. 1 .0D-1 0)THEN 
XP=TS*(LOG(P0/PH2O)) 

ELSE 

PH2Ol=1.0D-10 
XP=TS*(LOG(PO/PH201 )) 

END IF 

PART1=1.-KXPA200.)*(XPA200.) 

PART2=-. 177* ATAN(XP/1200.) 
PART3=-8.7025E-7*XP*PART1**(-2.77)*EXP(PART2) 

PART4=-5 .08875E-5* 1 7PART1 *EXP(PART2)*PART1 **(- 1 .77) 
DWDX_SIL=-(PART3+PART4)*TS/PH201 
'x' . ELSE 


G-13 



PH201-PH20 

IF(PH201J-E.1.0E-10) PH201=1.0E-10 
XP=TS*(LOG(P0/PH2Ol )) 
W=354*(l.O+{XPA200)**2)**(-1.77)* 
EXP(-.177*ATAN(XP/1200)) 

XP1=XP+10.0 

W1 =354*(1.0+<XP1A200)**2)**(-1 .77)* 
EXP(-.177*ATAN(XP1/1200)) 
DWDX_SIL»-TS*(W1 -W)/(XP1 -XPVPH201 
END IF 
RETURN 
END 


c Ai» subroutine compute the equilibrium amount adsorbed in the solid phase 
c of pellet, for 13x if it being treated as monodisperse pore 

SUBROUTINE DWDXDT_13X(PC02J > H20,TG,TSJ > jlEYJDWDX.DWDD 
IMPLICIT REAL*8(A-H.O-Z) 

REAL*8 KFiENJ^fW(4)J)WDX(4) J)WDT(4) 

COMMON/PRIME/GN2,RA.RAV,EPSEX,EPSIN.ALF,RHOS,ALPHAl 
COMMON/GAS /INERT J^COMP 
COMMON/IND 1 /IND(4) 

DATA NCJVfW/2,44,18,0„0y 

CALL DWDX 13X(PC02,PH20J\TS.TG.DWDX.DWDT) 

DO 10I1-1.NC 

DWDXai )=DWDX(I1 )*555.0*TS 
10 CONTINUE 
RETURN 
END 


c thi< subroutine calculate the derivitive of pie concentration with respect 
c to temperature and other componet,13x 

SUBROUTINE DWDX_ 1 3X (PC02J > H20.P.TS0,TGJ>WDX J3WDT) 
IMPLICIT REAL*8(A-H.O-Z) 

COMMON/INDl /IND(4) 

REAL*8 Q0(4)3(4XN(4),P1(4),W(4)JDWDX(4),TERM(4)J)WDT(4), 

• Q2(4),Q1(4) 

DATA RJ^C/555^2/ 

ITEST*0 

10 Q0(lW-.0541863937*TSO+56.6418249)A00 

B(1 >=28. 197 09466*(1+(TSO/9588.8566167)**1. 4188024497)** 

. -33133533278 

N(1)—4.24259381+.02210824511*TSO-3.5706432963D-5*TSO*TSO+ 
. 2.0564581055D-8*TSO*TSO*TSO 
Q0(2)=.015 

B(2)=l. 879094 E-4*EXP(5467.4817024/TSO) 

N(2)=3 

PI (1 )«PC02/14. 696*7 60.0 
Pia>*PH2O/14.696*760.0 
IF(P1(1).LT.1.0E-10) P1(1)=1.0E-10 
IF(P1(2).LT.1.0E-10) P1(2)=1.0E-10 
TERM1-0. 

DO 20I-1.NC 

TERM(I)»B(I)*P1(I)**N(D 

TERM1=TERM1+TERM(I) 

20 CONTINUE 

IFflTEST.EQ.O) THEN 

DWDX(l)=Q0(l)*B(irN(l)*Pl(l)**(N(l>-l.)* 

. (1 +TERM(2))/( 1 +TERM 1 )**2 

DWDX(2)=Q0(2)*B(2)*N(2)*P1(2)**(N(2)-1.)* 

. (1+TERM(1))/(1+TERM1)**2 
DO30I1-1.NC 

Q 1 (II )=Q0(I1 )*BA1 )* P1A1 r *N(1 1 VTERM 1 
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30 CONTINUE 
TS01=TSO 
TSO=TSO+1.0 
ITEST=1 
GOTO 10 
ELSE 

DO4011=l,NC 

c^iK^ai)*Bai)*piair*NaiyrERMi 
40 CONTINUE 
END IF 

DO 50 11=1 J4C 

DWDT(I1MQ2(I1>-Q1(I1 ))/(TS0-TS01 ) 

50 CONTINUE 
RETURN 
END 


c this subroutine compute the amount of adsorbed gas in equilibrium with gas 
c molar density, for single componet uses Langmuir- fredrich isotherm, the 
c compulsion of equlibruim for multi component uses the Ideal Solution Theory 
c (1ST), since the equations are none linear and implicit,* numeriacl method 
c was used to compute the adsorbed equlibruim amount, the method is by Forythe, 
c Computer Methods fcrr Mathematical Computation, it is an bisect method with 
c quadratic convergence, 
c 

c B,V,PO arrays are sinle equlibrum constant 

SUBROUTINE IST_Zl(METHOD,T,SS,Ql) 

IMPLICIT REAL* 8 (A-RO-Z) 

C0MM0N/EQLIB/PP(4)3(4).V(4)J>0(4)J>I(4)ja(4XXl(4),Yl(4) 

COMMON/NCY/NC 1 

COMMON/INDl/IND(4) 

REAL*8 Q1(4),SS(4) 

INTEGER LNUM 

PVTPRMAl FPN1 

DATA XTOLFTOLXNLIM/1 .0E-5,i.0E-5,030/ 

DATA R/5 55/ 

T_G=T 

NC=NC1 

c the partial pressure 
DO 11=1 J^C 

Yiaw-ssai) 

END DO 
DO I=1*NC 
PP(I)=Yl(I)*T_G*R 
END DO 

c no mole fradon return 
Z=1.0E-32 

IF(PP(l).LE^AND.PP(2).LE.Z-AND.PP(3).LE.ZjAND.PP(4).LE.Z)THEN 

DOI=lJ4C 

Q1(D=0. 

END DO 
RETURN 
END IF 
N1 =i 

c set the constant as a function of temperature 
IF(IND(1)JEQ.1)THEN 

c V(N 1 >=(81.29831 3 8-.21 1 18560043*T+1 387732293 D^*T*D/44/ 100 

V(N1M 7.0/44/1 00 

C B(N1 >=6864.90001 3 1*EXP(-.01 9 625 79 1466*T) 

B(Nl)=5323235056e-6*T**(-3)*EXP(13948344244/1.987/D 

PO(NlM 

N1«N1+1 
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END IF 

IF(IND(2).EQ. l)THEN 
V(N1)= 1769.035 

B(N1 >»1 .879094E-4*EXP(5467 .48 1 7024/T) 

IF(TX.T.610.) THEN 

B(N1W-5597278759E-7*EXP(9628.9655743/T) 

ELSE 

B(N1)=5 .8089066684 E-7*EXP(9 1 15.734593/T) 

END IF 
Nl-Nl+1 

PO(N1>-1.0 
END IF 

IF(IND(3)£Q.1)THEN 

V(N1)-1.637879912E-5*T+.00961297026 

IF(TJ-EJ32)THEN 

B(N1)=3.2694515539E-7*T-m1.59988799E^ 

ELSE 

B(Nl)=7.90864008E-5*T-4.14400420E-2 
END IF 

PCXNIM-O 
Nl-Nl+1 
END IF 

IF(IND(4).EQ.1)THEN 

V(N1>=-1.637879912E-5*T+.00961297026 

IF(TIXJ32)THEN 

B(Nl)=3.2694515539E-7*T+4.59988799E-4 

ELSE 

B(N1 )=7.90864008E-5*T -4. 14400420E-2 
END IF 

PO(N1>=1.0 
END IF 

IF(NC.EQ.1)THEN 

Ql(l>-V(l)*B(l)«PP(l)**PO(l)/(l+B(l)*PP(ir*PO(l)) 

RETURN 

ELSE IF(NC.EQ.2 AND. PP(1).EQ.0)THEN 
Ql(2WV(2)*B(2)*PP(2) , *PO(2)/(l+B(2)*PP(2)**PO(2)) 
Ql(l)-0 
RETURN 

ELSE IF(NC.EQ2 AND. PP(2).EQ.0)THEN 
QKi)-v(i)*B(irpp(ir*PO(iva+B(irPP(ir*po(i)) 
Ql(2H) 

RETURN 
END IF 
TERM 1-0. 

c calculate the equilibrium istho therm by Langmuir method 
DO 1=1 JNC 
IF(PP(I).GT.0)THEN 
TERMl=B(I)*PP(D**POa>rTERMl 
END IF 
END DO 
SUM=0. 

D0I=1J4C 
IF(PP(I)XE.0.) THEN 
Qia>=o. 

ELSE 

Qia>=varBa)*ppa)**po<iy(i+TERMi) 

SUM=SUM+Q1(I) 

END IF 
END DO 

c if the Langmuir method is asked for then returned 
IF(METHODEQ. 1)THEN 
RETURN 
END IF 

c if not, take the result as the first guess for 1ST theory 
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DO I=1,NC 
X1(D=Q1(I)/SUM 
IF(X1(I).GT.0) THEN 

pia>=pp(iyxi(D 

ELSE 

PI(T)=0. 

END IF 
END DO 

c calculate the spread pressure 
DOI=lJs'C 
IF(PP(I).LE.O.) THEN 
X10)=0 
ELSE 

xia>=vaypo(D*LCK3(i+B(i)*Pw*poa)) 

IF=I 
ENT) IF 
END EX) 

X=X1(IF) 

doi=inc 

IF(X1(I).LT.X AND. X1(I).CT.0)THEN 
X=X1(I) 

END IF 
END EX) 

AX=X 

DEUC=AX 

BX = AX 

c call Zero in subroutine to find the rout to the 1ST equation 
DO 1=1,100 
BX=BX+DELX 
FUN=FCN1(BX) 

IF(FUN.LT.O)GO TO 1 13 
END EX) 

113 X=ZER0IN(FCN1AX3X,T0L) 
c rout was found 
DO 1=1 .NC 
IF(PPaXLE.O)THEN 
PP(I)=L0E-32 
END EF 

c calculate the fraction in the solid phase 
PARTI =PO(T)*X/V (I) 

IF(PART 1 .GT.73)PART1 =73 
Pia>*(EXP(PARTlH)/B(D 

xia>*pp(D/pia) 

END EX) 

TOT_Q=0 

c calculate the total amount adsorbed 
DO 1-1J4C 

Qia>=va)*B(T)*piar*poav(i+BarPi(i)**pocD) 

TOT Q=TOT_C^XiaVQia) 

END DO 

c calculate the amount adsorbed for each component 
D0I=1NC 

Qia>=l/rOT_Q*Xl(I) 

END DO 
80 RETURN 
END 

c 1ST function 

REAL FUNCTION FCN1(X) 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON/EQUB/PP(4XB(4).V(4),PO(4) 

COMMON/NCY/NC1 

NC=NC1 

SUM=0. 

DO 1=1 .NC 
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IF(PP(I).GT.O) THEN 

parti «poa>*x/va) 

IF(PART1 .GT.73)PART1 =73 
SUM=SUM+PPaV((HXP(PARTl)-l )/B(I))»*(l yPO(I)) 
END IF 

C IF(PP(I).LE.0)PP(I>=1.0E-32 
C PART1=PCXD*X/V(I) 

C IF(PART 1 .GT.73 )PART 1 =73 

c sum=sum+pp(iv((exp(parti >-i)/B(D)**a ypoa)) 

END DO 
FCN1=SUM-1 
RETURN 
END 


c subroutine to find the root of equation by bisect method 


REAL FUNCTION ZEROIN(FCNl .AX3X.TOL) 
IMPLICIT REAL»8(A-RO-Z) 

COMMON/IND 1 /IND(4) 

REAL*8 AX3X.FCN1.TOL 

REAL* 8 A3.CDi.EPS.FA.FB JC,TOLUCM,P,Q,R^ 
EPS=L.O 

10 EPS-EPS/2. 

TOL1=1.0+EPS 
IF(TOL1.GT.1.0) GO TO 10 
c initialization 
A=AX 
B=BX 

FA-FCNl(A) 

FB=FCN1(B) 
c begin step 
20 C=A 
FC-FA 
D=B-A 
E=*D 

30 IF(ABS(FC) .GE. ABS(FB)) GO TO 40 
A=B 
B=C 
C=A 
FA=FB 
FB-FC 
FC=FA 

c convergence test 

40 TOLl=2.*EPS*ABS(B)+.5*TOL 
XM=J*(C-B) 

IF(ABS(XM).LE.TOLl)GO TO 90 
IF(FB.EQ.0.0) GO TO 90 
c is bisection necessary 

IF(ABS(E) XE.TOL1 )GO TO 70 
ff (ABS(FA) J-E ABS(FB )) GO TO 70 
c is quaranc mterpolatadon possible 
IF(A-NE.C)GO TO 50 
c linear interpolation 
S=FB/FA 
P=2.0*XM*S 
Q=1.0-S 
GO TO 60 

c inverse quadratic interpolation 
50 Q=FA/FC 
R=FB/FC 
S=FB/FA 
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P=S*(2.*XM*Q*(Q-R)-(B-A)*(R-1 .0)) 

Q=(Q-1 .0)*(R-1 .0)*(S-1 .0) 
c adjust signs 
60 IF(P.GT.0.0)Q=-Q 

P=ABS(P) 

c is interpolation acceptable 

F((2.0*P).GE.(3.*XM»Q-ABS(TOL1*Q))) GOTO 70 
ff(P.GEABS(.5*E*Q)) GO TO 70 
E=D 
D=P/Q 
GO TO 80 
c bisection 
70 D=XM 
E=D 

c complete step 
80 A=B 
FA=FB 

IF(ABS(D).GT.TOLl )B=B+D 

F(ABS(D).LE.TOLl)B=B+SIGN(TOLl.XM) 

FB=FCN(B) 

IF((FB'*(FC/ABS(FC))).GT.0)GO TO 20 
GO TO 30 
c done 

90 ZEROIN=B 
RETURN 
END 


c the second method, this method is faster but the initial guess must be near 
c the root of the equation, 
c 

c this subroutine compute the amount of adsorbed gas in equilibrium with gas 
c molar density, for single componet uses Langmuir- firedrich isotherm, the 
c compulsion of equlibruim for multi component uses the Ideal Solution Theory 
c (1ST), since the equations are none linear and implicit* numeriacl method 
c was used to compute the adsorbed equlibruim amount, the method is Newton* 
c 

c B.V.PO arrays are sinle equlibrum constant 
SUBROUTINE IST_Z(METHOD.T.SS,Ql) 

IMPLICIT REAL*8 (A-H.O-Z) 

COMMON/EQUB/PP(4)*B(4),V(4),PO(4).PI(4)ja(4)^l(4),Yl(4) 

COMMON/NCY/NC1 

COMMON/INDl/IND{4) 

REAL*8 Q1(4XSS(4) 

INTEGER LNUM 

EXTERNAL FCN.FDER 

DATA XTOUFTOULNLIM/1 .0E-5.1 .OE-5,0.50/ 

DATA R/555.0/ 

T_G=T 
NC=NC1 
DO I1=1*NC 

Yiai)=ssai) 

END DO 
DO I=1*NC 
PP(I)= Y 1 (I )*T_G * R 
END DO 

c no mole fradon return 
Z=i 0E-32 

F(PP(1).LE^AND.PP(2).LE.ZAND.PP(3).LEZANDJ>P(4).LE2)THEN 

DOI=l.NC 

Qia>=o. 

END DO 
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RETURN 
END IF 
NU1 

c set the constant as a function of temperature 
IF(IND(1)£Q.1)THEN 
c 13x by I, grace 

c point«-1567.1205874+9.00256903*t-.0172347*t*t+1.100806e-5*t*t*t 
c if(pp(nl).gLpoint .or. Lgt.627)then 

c V(N 1 M8 1 .2983138-^11 1 8560043 *T+1 .587732293D-4*T*T)/44/100 

c B(Nl>=6864.9000i31*EXP(-.019625791466*T) 

c po(nl^l.O 

c else 

c 13x by l_f,grace 

v(nl )*2332228/44/l 00 

b(nl)*4.9639763e-4* , T**(-.5)*exp(923333778A.987/T) 
po(nl)— 2.9138991288+.017181761178*T-2.8549083257e-5*T*T+ 

. 1.622511757e-8*T*T*T 
c end if 

c from Firm data 5 A 
c if(pp<nl ).1 l 1 .0) then 

C b(N 1 )=237022397e-6*t**(- 3)*exp( 14907 .6535/1 .987A) 

C v(N1M6.6/44A00 

C po(Nl)=.80 

c Finn by langmuir 
c else 

c v(nlM25.97135008-6.084518e-3*T-2.1799516646e-5*T*T)/44/100 

c b(nl)=1.88863393e-5*T**(-.5)*exp(12170.875335A.987/r) 
c po(nl)=l. 
c end if 

C 5A BY GRACE. BY L_F 
c V(Nl>*17.0A00/44 

c B(N1)=2J41477E-4*T**(-3)*EXP(10257.166145/1.987/D 
c PO(N 1)=3.8304501 1 1E-4*T** 1 .188379596 
C 5A BY GRACE. BY L 

C V(NlM-4-27886889-t-.087218022*T-9.1010715804E-5*T*TV44/100 

C B(Nl)=9.2533309123E-5*T”(-.5)*EXP(10719.0A.987/r) 

C PCKNl^l. 

C 5A BY GRACE; BY L_F BETWEEN 0-75 C 
C V(N 1 M399.3942- 1 .938428896*T +3.25405 15E3*T*T- 

C . 1 .822621 1 899E-6*T*T"T)/44/l 00 

C B(N1^35358072159-.17016733*T+2.7458762E-4*T*T- 

C . 1.484116035E-7*T**3 

C PO(N 1 ^-29386 1 079+.1 538898497*T -2.6 1225877E-4*T*T+ 

C . 1 .478 1 84694E-7*T**3 

c linde5a 
c v(nl)=.005 

c b(nl>=1.129015193e-5*exp(5055.015089A) 

c po(nl)=.6 

Nl-Nl+1 
END IF 

c h2o on 5a by grace U 
IF(IND(2)EQ.1)THEN 
if(pp(nl)Jt .46)then 
if(uleJ64.)then 

v(nlH39.914452-8.87103e-2*t+6.839502987e-5*t*t)/100A8 

else 

v(nlH873.44464-3.867834937*t+5.80375049e-3*t*t- 
2.9346685e-6*t»t»t)/100/l 8 
end if 

b(nl >=29 690.66923-137 ,837129*T+314456126*t*t 
po(nl>=l 
else 

tynl >=48366639771 -2.2620239975e-l *t+3 .9101703 1 68e-4*t*t- 
. 237909 8497e-7*t*t*t 
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v(nl>=(95.093824733-.21725775358*t+1.4628603e-4*t*t)/100/18 
po(nl>=l 
end if 

IFfT.LT.610.) THEN 

B(2)=4.5597278759E-7*EXP(9628.9655743/T) 

ELSE 

B(2)=5.8089066684E-7*EXP(9 1 15 .734593/T) 

END IF 

V(2)=.0l5 

PCK2>=1.0 

c h2o on 5a grace by LF 

C b(nl)=24.573259-5.8385278e-2*t+3.473682438e-5*t*l 

C v(nl M66.62520167-. 12S99345*t+7. 1897316221e-5*t*t)A 00/18 

C if(Ue.600)then 

C po(nl >=.821991 6486-3.35 1 9986e-3* t+4.67927 6479e-6*t* t 

C else 

C po(nl >=-6.0926707634+2. 043004e-2*t-2.924858439e-5*t*t+ 

C . 1.1746734108e-8*t*t*t 

C end if 

Ni=Nl+l 
END IF 

IF(IND(3).EQ.1)THEN 

V(N1>=-1.637879912E-5*T+.00961297026 

IF(TiEJ32)THEN 

B(N1 >=3.26945 15539E-7 ‘7+4.5998S799E4 
ELSE 

B(N1 )=7 ,90864008E-5*T -4. 14400420E-2 
END IF 

PO(N1)=1.0 
N1=N1+1 
END IF 

IF(IND(4).EQ.1)THEN 

V(N1>=-1.637879912E-5*T+.00961297026 

IF(TLE^32)THEN 

B(N1)=3.2694515539E-7*T+4.59988799E4 

ELSE 

B(N 1 )=7 ,90864008E-5*T -4. 14400420E-2 
END IF 

PO(N1)=1.0 
END IF 

IF(NC.EQ.1)THEN 

Ql(l)=V(l)*B(l)*PP(l)**PO(l)/(l + B(l)*PP(l)**PO(l)) 

RETURN 

ELSE IF(NC.EQ.2 .AND. PP(1).EQ.0)THEN 
Ql(2)=V(2)*B(2)*PP(2)**PO(2)/(l+B(2)*PP(2)**PO(2)) 
Q1(1>=0 
RETURN 

ELSE IF(NC.EQ.2 .AND. PP(2).EQ.0)THEN 
Ql(l)=V(l)*B(l)*PP(l)**PO(l)/(l+B(l)*PP(l)**PO(l)) 
Ql(2)=0 
RETURN 

ELSE IF(NC.EQ J)THEN 
if(pp(l).le.0 .and. pp(2).le.0)dien 
Ql(3)=V(3)*B(3)*PP(3)**PO(3y(l+B(3)*PP(3)**PO<3)) 
Q1(1H) 

Ql(2>=0 

return 

else if(pp(l).le.O .and. pp(3).le.0)then 
Ql(2)=V(2)*B(2)*PP(2)**PO(2y(l+B(2)*PP(2)**PO(2)) 
Q1(1)=0 
Ql(3)=0 
return 

else if(pp(2).le.0 .and. pp(3).le.0)then 
Q 1(1 )=V(l)*B(l)*PP(l)”PO(iy(l+B(l)*PP(ir*PO(l)) 
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Q1(2M> 

Q1(3H) 

recuni 
end if 
END IF 
TERM 1=0. 

c calculate the equilibrium by Langmuir isotherm 
DO I=1NC 
F(PP(D.GT.0)THEN 
TERMl=B(D*PP(D**PO(I)+TERMl 
END IF 
END DO 
SUM-0. 

DO 1=1 J^C 
IF(PP(DiE.O.) THEN 
QldH). 

ELSE 

Qia>-varB(D*ppar*poay(i+TERMi) 

SUM-SUM-KJl (I) 

END IF 
ENDDO 

c if the Langmuir method is asked foR, then return. If not use it as first guess 
c for 1ST theory 

F(METHOD.EQ.l)THEN 
RETURN 
END IF 
DO 1= INC 
Xl(IM31(iySUM 
IF(X1 (D-GT.O) THEN 
PI(D=PPayXl(I) 

ELSE 

PI(I)=0. 

END F 
ENDDO 

c set the initial guess for the spreading pressure 
DOI-1NC 
F(PP(I)-LE.O.) THEN 
X1(IM) 

ELSE 

xia)=vaypoa)*LOG(i+Ba)*piar*poa)) 

F=I 
END F 
ENDDO 
X=X1(F) 

DOI-2NC 

F(X1(I).LT.X AND. X1(I).GT.0)THEN 
X=X1(I) 

ENDF 

ENDDO 

c call newton method to the rout to 1ST equation 
F(X IE. 1.0E-17) GO TO 80 
CALL NEWTNCFCNFDERXJCTOUFTOLNLIMJ) 
c rout was found, calculate the fraction in the solid phase 
DO I=1NC 
F(PP(I)-LE-0) THEN 
X1G)=0. 

ELSE 

PARTI =PO(R*X/V(I) 

F(PART1 .GT.73)PART1=73 
PI(IHEXP(PART1>-1)/B(D 
Xia>=PP(D/PI(D 
ENDF 
ENDDO 

c calculate the total amound in the solid phase 
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TOT Q=0 
DOI=l,NC 
IF(PPa).LE-0) THEN 
Ql(I)=0. 

ELSE 

Qia>=va)*Ba)*pia)**poa)/(i+Ba)*pia)**po(D) 

TOT_Q=TOT_Q+X 1 (I)/Q1 0) 

END IF 
END DO 

c ri lnil" 1 **- the amount in equilibrium with the gas phase for each component 
DO 1=1 J^C 

Ql(T)=17TOT_Q*Xl(I) 

END DO 
80 RETURN 
END 
c 

c 1ST final equation 
c 

REAL FUNCTION FCN(X) 

IMPLICIT REAL* 8( A-H.O-Z) 

COMMON/EQLJB/PP(4XB(4), V(4),PO(4) 

COMMON/NCY/NC1 

COMMON/INDl/IND(4) 

NC=NC1 

SUM=0. 

DO I=1,NC 
IF(PP(I).GT.O) THEN 
PARTl=PO(I)*X/V(I) 

IF(PART1 .GT.73)PART1 =73 

SUM=SUM+PPaV((HXP(PARTl )-l )/B(I))* *( 1 JPO(D) 

END IF 
END DO 
FCN=SUM-1 
RETURN 
END 


c 1ST final aerivitive 
c 

REAL FUNCTION FDER(X) 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON/EQUB/PP(4).B(4),V(4).PO(4) 

COMMON/IND1/IND(4) 

COMMON/NCY/NC1 

NC=NC1 

SUM=0. 

DO I=1XC 
IF(PP(I).GT.O) THEN 
PART3=POa)*X/Va> 

IF(PART3 JJT 35)THEN 
PARTi*-ppavBavvarHXP(PART3) 
PART2=((EXP(PART3)-l)/B(I))**((l+POCD)/PO(I)) 
SUM=SUM+PART1/PART2 
ELSE IF(PART3/PO(I).LT.73)THEN 
SUM=SUM-B(I)**((l+PO(I))/PO(D)*PP(D/B(D/V(D* 

EXP(-PART3/POa» 

ELSE 

PART3=73 

SUM=SUM-B(I)**((l+POa))/PO(D)*PP(D/B(D^(D* 

EXP(-PART3) 

END IF 
END IF 
END DO 
FDEP=SUM 
RZToiUn 
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END 


c this subroutine finds the rout to t nonlinear equation using the Newton 
c method 

SUBROUTINE NEWTN(FCN,FDERXXTOL.FTOUNLIMJ) 
IMPLICIT REAL*8(A-H,0-Z) 

COMMON/IND 1/IND(4) 

INTEGER NUMJJ 
FX«FCN(X) 

X1»X 

DO J=LNUM 
DELX*FX/FDER(X) 

X=X-DELX 

FX-FCNOO 

IF (ABS(X-XiyXXEJCTOL)THEN 
RETURN 
END IF 

IF(FX.NE.O)THEN 

IF(ABS(FX-FXl)/FX.LE.FTOL) THEN 
RETURN 
END IF 
END IF 
X1=X 
FX1=FX 
END DO 
I“-l 

PRINT 200, NUMJCJX 

200 FORMAT(/TOLERANCE NOT MET \I4,’ ITERATIONS X* 
2E123.'F(X)='.E12.5) 

RETURN 

END 


FUNCTION CPGAS(TEM,Y) 

C THIS FUNCTION CALCULATES THE HEAT CAPACITIES OF CMRIER GAS IN BTU/WMOLE/R 
IMPUCIT REAL*8(A-H,0-Z) 

REAL*8 A(4)3(4),C(4).D(4).Y(4) 

COMMON/GAS/INERT J4COMP 
COMMON/NCY/NC1 
COMMON/INDl/IND(4) 

CC02 

DATA A/36.1 1,33.46,29.39.1/ 

CH20 

DATA B/4.233E-2,.6880E-2..2199E-2,1.158E-2/ 

CN2 

DATAC/-Z887E-5..7604E-5..5723E-5.-.6076E-5/ 

C02 

DATA D/7.464E-9.-3.593E-9,-2.871E-9.131 IE-9/ 

NC=NC1 

T-TEM/1 .8-273.15 
IF (INERTEQ.l) THEN 
CPGAS-0. 

DO I*1J4C 

CP=AaHBO)^^a)*Tn+Da)*T*T*T 
CPGAS=CP*Y(D/4.18669+CPGAS 
END DO 
ELSE 

CPGAS=4.97 

ENDIF 

RETURN 

END 
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FUNCTION CPS(TEMP) 

IMPUCIT REAL*8(A-H.O-Z) 

CTHIS FUNCTION CALCULATES TNE HEAT CAPACITY 
C BTU/LB/R. 

CPS=02 

RETURN 

END 


REAL FUNCTION KGAS (TEMP) 

C THIS FUNCTION CALCULATES THE THERMAL CONDUCTIVITY OF CARRIER GAS ASSUMING 

C A LINEAR FUNCTION OF TEMPERATURE AND BASED ON VALUES AT 492 AND 672 R. 

C BTU/MIN/FT/R 

IMPUCIT REAL*8(A-H.O-Z) 

COMMON/GAS/INERT .NCOMP 
IF (INERT.EQ.1) THEN 
KGAS=3.88E-7*TEMP+0.4052E-4 
ELSE 

KGAS=1.667E-6*TEMP+6.1E-4 

ENDIF 

RETURN 

END 


FUNCTION RE (G.TEMP) 

C TNIS FUNCTION CALCULATES THE PAR1CLE REYNOLDS NUMBER ASSUMINC THAT 

C THE MOLECULAR WEIGHT OF TNE GAS IS EQUAL TO THAT OF CARRIER GAS. 

IMPUCIT REAL*8(A-H.O-Z) 

REAL»8 LENJVfW 

COMMON/PRIME/GN2.RA.RAVXPSEX.EPSINALF.RHOSALPHA1 
COMMON/GAS /ENERT.NCOMP 
DATA IFLAG/O/ 

IF (INERT.EQ.1) MW=28.0 
IF (INERTEQ.2) MW=4. 

IF (IFLAGEQ.O)THEN 
CONST=2.*RA 
IFLAG=1 
ENDIF 

RE^ONST*MW*ABS(G)/VIS(TEMP) 

RETURN 

END 


FUNCTION VIS(TEMP) 

IMPLICIT REAL*8(A-H,0-Z) 

C THIS FUNCTION CALCULATES THE VISCOSITY OF CARRIER GAS AS A LINEAR FUNCTION 
C OF TEMPERATURE (LB/MLN/FT). 

COMMON/GAS/INERT J4COMP 
IF (INERTEQ. 1 ) THEN 
C VIS*I.0E-6*TEMP+1.65E-4 

VIS=-.0102007812+5384663937E-5*TEMP-8.7973727E-8*TEMP*TEMP+ 

2 4.81 1387495E- 1 1 *TEMP*TEMP*TEMP 

ELSE 

VlS=0.9444E-6*TEMP+2.863E-4 

ENDIF 

RETURN 

END 
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FUNCTION RHOG(TR.P) 

IMPLICIT REAL*8(A-H.O-Z) 

REAL* 8 LEN 

C TfflS FUNCTION CALCULATES THE MOLAR DENSITY OF AN IDEAL GAS IN 
CLBMOLES/CVFS. 

COMMON/PRIME/GNLRAJIAVEPSEX.EPSINALF.RHOSALPHA1 
DATA R/555./ 

RHOG-P/R/TR 

RETURN 

END 


FUNCTION EFFIXICOMP.G.TEMPJIHO.PT.YO) 

C THIS FUNCTION CALCVLATES TNE EFFECTIVE AXIAL DEFFUSIVTIIES IN A PACXED BED 
C USING THE EDWARDS AND RICHARDSON CORROLATION. (FT*FT/MIN) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 LAMBDAl.LAMBDA2iEN,YO(4) 

COMMON/PRIME/GN2iA,RA V EPSEX.EPSIN ALF.RHOS ALPHA 1 
COMMON/INDl/IND(4) 

DATA IFLAGAVLAMBDA1/0.73/ 

IF(IFLAGLQ.O)THEN 

CONST=2.*RA/EPSEX 

IFLAG*1 

ENDIF 

DIF*DIFF(ICOMP,TEMPJT.YO) 

EFFD=LAMBDA1*DIF+CONST*ABS(G)*LAMBDA2(GJ3IFJIHO)/RHO 

RETURN 

END 


FUNCTION EFFK(G.T.CPJIHO.P.YO) 

IMPLICIT REAL*8(A-H.O-Z) 

C THIS FUNCTION CALCULATES THE EFFECTIVE AXIAL THERMAL CONDUCTIVIT Y OF A 
C PACKED BED IN BTU/FT/MIN/F. 

COMMON/NCY/NC1 

COMMON/INDl/IND(4) 

REAL*8 YO(4) 

NC=NC1 

EFFK=0. 

KK-0 

DOIl*l.NC 

SUM«CP*RHO*EFFD(11,G.T.RHO,P.YO) 

IF(SUM.GT.0)KK-KK+1 
EFFK-SUM+EFFK 
END DO 
EFFK*EFFK/KK 
RETURN 
END 


REAL FUNCTION LAMBDA2(G,DIF,RHO) 

C THIS FUNCTION CALCULATES THE DIMENSTONLESS PARAMETER OF THE EDWARDS AND 
C RICHARDS CORROLATION MODIFIED FOR SMALL DIAMETER PARTICLES. 

IMPLICIT REAL*8(A-H.O-Z) 

REAL*8 LEN 
DATA IFLAGA)/ 

COMMON/PRIME/GN2.RA.RAVEPSEX.EPSINALF.RHOSALPHA1 

IF(IFLAG.EQ.O)THEN 

IF(RA.GT.0.00492)THEN 
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PE=2. 

ELSE 

PE=406.4*RA 

ENDIF 

C0NST-2*RA/EPSEX 

IFLAG=1 

ENDIF 

LAMBD A2= 1 ./PE/( 1 .+9^*DIF/C0NST/ABS(G)*RH0) 

RETURN 

END 


FUNCTION DIFF(ICOMP t TEM,Pl,YO) 

C THIS FUNCTION CALCULATES THE MOLECULAR DIFFUSION COEFFICIENTS BY CORRECTING 
C FOR PRESSURE AND TEMPERATURE (FT*FT/MIN). 

IMPUCIT REAL*8(A-H.O-Z) 

REAL*8 LEN,YO(4),V(4),MW(4).DIF(4) 

COMMON/GAS /INERT J^COMP 
COMMON/NCY/NC1 

COMMON/PRIME/GN2JLA,RAV.EPSEX,EPSIN.ALF,RHOS,ALPHAl 
COMMON/IND 1 /IND(4) 

DATA V/26.9,12.7,17.9,16.6/ 

DATA MW/44.01,18.016,28.013.31.999/ 

NC=NC1 

K=ICOMP 

P=Pl/760. 

T=TEM/1.8 
DO 1=1 .NC 

PARTI «((MW(K)+MW(I))/MW (K)/MW (I))** .5 
PART2=(V(K)**(l-/3>+V(I)**(173))**2 
DIF(I)=PART1/PART2T'* 1 .75/P* 1 .0E-3 
END DO 
SUM=0. 

DO 1=1, NC 
IF(LNEJC)THEN 
SUM=SUM+YO(I)/DIF(I) 

ENDIF 
END DO 

DIFF=(1 -YO(K)VSUM *3.8745/60. 

RETURN 

END 


FUNCTION HFDLM(MW.TEMP.REY.CP) 

C THIS FUNCTION CALCULATES THE FLUID FILM HEAT TRANSFER COEFFICIENT 
C IN BTU/SQ FT/M1N/R USING THE CORRELATION OF PETROY AND THODOS. 
IMPUCIT REAL* 8( A-H.O-Z) 

REAL* 8 IDJCGASJCGXENJvfW 

COMMON/PRIME/GN2JLA.RAV EPSEX.EPSIN ALF.RHOS ALPHAl 
COMMON/GAS/INERT,NCOMP 
COMMON/IND 1/IND(4) 

KG=KGAS(TEMP) 

PR=CP/MW*VIS(TEMP)/KG 

HFILM=0.357/EPSEX*REY**0.64*PR**0.33*KG*0.3/RA 

RETURN 

END 


FUNCTION DHCARtTEMP.P) 

C THIS SUBROUTINE CALCULATES HEAT OF ADSORPTION OF CARRIER GAS ONTO THE 
C ACTIVATED CARBON TIMES THE TEMPERATURE DERIVATIVE OF THE SOLID PHASE 


G-27 



C CARRIER GAS CONCENTRATION AT THE BED PRESSURE (BTU/# SOLID/R). 

C IMPLICIT REAL*8(A-H,0-Z) 

c DC A I »B I CM 

C COMMON/GAS/INERT,NCOMP 

C COMMON/PRIME/GN2JLA.RA V 3PSEXALF,RH0S,ALPHA1 
C DATAR/1.9872/,A/1.28E-9/3/315iy 
C 

C IF(INERT.EQ.l) THEN 
C DH*R*B 

C DHN2»-DH*A*B*EXP(B/TEMP)*P/rEMP/TEMP 
C ELSE 
C DHN2-0. 

C ENDIF 
C RETURN 
C END 
c 



c 

FUNCTION DHADS(ICOMP,T) 

C THIS FUNCTION CALCULATES THE ISOTERIC HEAT OF ADSORPTION. (BTU/KMOLE) 
IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 LEN 

COMMON/PRIME/GN2JULRAVEPSEX.EPSINALF.RHOSALPHA1 
IF(ICOMPEQ.2) THEN 
DHADS=20400.0 
ELSE 

DHADS-20000.0 

ENDIF 

RETURN 

END 


C THIS SUBROUTINE IS BEING C ALLED BY DIFFEQ1 WHICH IS ALSO BEING CALLED BY 
C SUBROUTINE FUNCT2_Z TO COMPUTE THE VELOCITY AND THE PRESSURE DROP IN THE BED. 
CTHE EQUATIONS ARE BEING SOLVED BY NEWMANS METHOD, 
c 

SUBROUTINE FUNCTl(J) 

IMPLICIT REAL*8(A-RO-Z) 

REAL*8D L(2).M_AVE 
COMMONADLD/ AA(14).SUM(14).COLD(14J01) 
COMMON/BND/A(14.13)3(14.13).C(14.201)J)(14^9LX(14.13X 
. Y(14.13).G(14LNJ^JJTPRT.ITCNT.F(14)J > (14a01) 

COMMON/PR.OLD Z/RO P(201),CPJ»(201).CON_FPP(201), 

. CON LPP(201)X> LPP(4i01)H FP(201 LH_TTP(201 ),H JIP(201 ). 

. H_OWPP(201 ).H_FWPP(201 ),Q(4.201 V VISC_P(201 )3ATE_C1 (201), 

. WM AVE1(201) 

COMMON/BOUN_CON/BC L13C_L23C_L33C_L43C_L53C_L63C_C(4) 

COMMON/PROP J)_Z/DELZ1.DELT1 

C0MM0N/PR0P_SJZ_1>CP_S130_S1JVINT13_P13>_P1.C0N_S1. 

'. G F1,HEAT1(4) 

COMMON/PROP_S_2_2/CP_S230_S2JUNT23_P23>_P2.CON_SZ 
. G FZHEAT2(4) 

COMMON/DELZ_DIF?/D01 ,D1 1 321 3>0ZD1ZD22,FR 

COMMON/NCY/NC1 

COMMON/IND1/IND(4) 

COMMON/PRIME 1/GN13A13AV13PSEX13PSIN1.ALF1.RHOS1.ALPHA11 
COMMON/PRIME 2/GN2JU23AV2.EPSEX23PS1NZALF2.RHOS2ALPHA12 
COMMON/LAYERS/LAYER 1.LAYER2 
DATA Ll,L4,L5.L6.Rl.CONV/4,li3J55.0,51.714752314/ 

DATA FAC.GC/2.78450526316, 416975040.0/ 

C 

CTHE FIRST ROW 
C 

c set variable values calculted in functe2_z subroutine 
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non 


NC=NC 1 

RATE_C=RATE_C 1 ( J) 

V 1 SC F=VISC P(J) 

M_AVE=WM.AVE 1 (J) 

KK =0 

SUM 1 = 0 . 

DO I-LNC 

D_ua>DjLp?aj) 

IF(D_L(I).GT.O)THEN 

KK*KK +1 

SUM 1 =SUM 1 +D_L<I) 

END IF 
END DO 

D_L AVE=SUM 1 /KK 
RO_F=C(L 5 f J)/(C(LU)*R 1 ) 
c set constant for material in between 

IF( J.GE 1 AYER 1 AND. J.LT.LAYER 2 )THEN 
EPSEX=EPSEX 2 
D P=D P 2 
ALF=ALF 2 
ELSE 

c set constant for material at two ends 
EPSEX=EPSEX 1 
D_P=D_P 1 
ALF=ALF 1 
END IF 

c solve the pde's for the first grid 
IF(J*EQ. 1 )THEN 
c velosirv 

F(L 4 ^FAC*(C(L 5 J>BC_L 5 *CONV)/DELZl +UGC*(RO_F*M.A VE*C(U, J)* 
. (C(L 4 J>BCLL 4 )/DEL 2 1 + 150* ( 1 -EPSEXr * 2 * VISC J»C(L 4 , J)/ 

. D P/D P/EPSEX/EPSEX+ 1 . 75 *( 1 -EPSEX)*RO_F*M_A VE*C(L 4 J)** 2 / 

. D.P/EPSEX+ROJ^M^VE^CO^PfUJ^/DELTl) 
c total ores sure witout the heat 

F(L 5 MC(L 5 J)-P(L 5 ,J))/DELT 1 -D_L_AVE/DELZ 1 ** 2 *(BC_L 5 *CONV- 
. 2*C(L5J)+C(L5*J+l)}*C(L4J)*(C(L5 t J)-BC_L5*CONVyDELZl+ 

. C(L 5 ,J)*(C(UJ>BC_U)/DELZ 1 +R 1 *C(LU)*ALF*RATE_C 
c total pressure with heat 

F(L 6 MC(L 6 J)-P(L 6 , J))/DELT 1 -D_L_AVE/DELZ 1 ** 2 *(BC_L 6 *CONV- 
. 2 *C(L 6 J>+C(L 6 J +1 )>+C(L 4 J)* (C(L 6 ,J)-BC^L 6 *C 0 NV)/DELZ 1 + 

. C(L6J)*(C(L4J>BC L4)/DELZ1-C(L6*JVC(L1J)*((C(L1J> 

. P(L 1 JJVDELTl -D.L AVE/DELZ 1 •» 2 *(C(L 1 J+l )- 2 *C(Ll J)+BC_L 1 >+ 

. C(L 4 J)*(C(L 1 J+ 1 )-BC Ll)/( 2 *DELZl)HRl*C(LljrALPRATE_C 


last grid 

ELSE IF(J.EQ.NJ)THEN 
c velosity 

F(U)=FAC*(C(L 5 J>C(L 5 J- 1 ))/DELZ 1 + 1 JGC*(R 0 _F*M_AVE*C(UJ)* 
. (C(L 4 J>C(L 4 J - 1 ))/DELZl+l 50 *(l-EPSEX)** 2 * VISC_F*C(L 4 J)/D_P/ 

. D _P/EPSEX/E?iEX+l . 75 *( 1 -EPSEX)*RO_F*M.AVE*C(U.J)** 2 /D.P/ 

. EPSEX+RO„F*W_AVE*(C(UJ>-P<U f J))/DELTl; 
c total pressure without heat 

F(L 5 MC(L 5 ,J>P(L 5 , DVDELT 1 -D_L_AVE/DELZ 1 ** 2 *(C(L 5 J-l )- 
. 2 *C(L 5 J>+C(L 5 ,J- 1 ))+C(L 5 J) # (C(L 5 J)-C(L 5 J- 1 ))/DELZ 1 + 

. C(L 5 ,J)*(C(L 4 J>C(L 4 J- 1 ))/DELZ 1 +R 1 *C(L 1 J)*ALF*RATE_C 
c total pressure with heal 

F(L 6 MC(L 6 J>P(L 6 J))/DELT 1 -D_L_AVE/DELZ 1 ** 2 *(C(L 6 J-l )- 
. 2 *C(L 6 JHC(Ld, J - 1 )>+C(L 4 J)*(C(L 6 J>C(L 6 J-l ))/DELZl+ 

. C(L 6 .X>*(C(UJ)-C(UJ- 1 ))/DELZ 1 -C(L 6 JVC(LU)»((C(L 1 ,J)- 
. P(LU))/DELTl-D_L_AVE/DELZl** 2 *(C(LU-l)- 2 *C(Ll.J>fC(Ll.J-l)H- 
. C(L 4 ,J)*(C(L 1 J- 1 )-C(L 1 .J- 1 ))/( 2 *DELZ 1 )>+-R 1 *C(L 1 ,J)*ALF*RATE_C 
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c 

c 

C in ten or grids 
ELSE 
c velocity 

F(L4>=FAC*(C(L5J>-C(L5J-1))/DELZ1+1.AjC*(RO_F*M_AVE*C(L 4J)* 
. (C(L4J)-C(L4J-l))/DELZl+150 , (l-EPSEX)**2*VISC_F*C(L4jyD_P/ 

. D_P/EPS EX/EPS EX-t- 1 ,75*(1 -EPSEX)*RO_F*M_AVE»C(UJ)**2/D_P/ 

. EPSEX+R0_P*M_AVE*(C(UJ>P(L4J»/DELT1) 
c total pressure without heat 

F(L5>=(C(L5,J)-P(L5,J))/DELT1 -D_L_A VE/DELZ1 **2*(C(L5 J-l )- 
. 2"C(L5 J>+C(L5,J+1 )>+C(L4 J)*(C(L5,J)-C(L5 J- 1 ))/DELZl + 

. C(L5J)*(C(L4J)-C(L4J-1))/DELZ1+R1*C(L1J)*ALF*RATE_C 
c total pressure with heat 

F(L6HC(L6J)-P(L6J)yDELTl -D_L_AVE/DELZ1 •*2*(C(L6J-1 )- 
. 2*C(L6J>+C(L6,J+l)>+C(L4J)*(C(L6,J)-C(L6J-l))/DELZl+ 

. C(U.J)*(C(UJ)-C(L4J-l)yDELZl-C(L6jyC(LU)*((C(LlJ>- 
. P(L1J)VDELT1-D_L_AVE/DELZ1**2*(C(L1J+1)-2*C(L1J>+C(L1J-1)>4- 
. C(U.J)»(C(LU+l)-C{LU-l)y(2*DELZl)HRl*C(LU)*ALF*RATE_C 
END IF 


C 

210 RETURN 
END 


C 

SUBROUTINE DIFFEQ(C1.P1 JiJl.Nl) 

IMPLICIT REAL*8(A-H.O-Z) 

0*#*****»*****W**»*******#****»*****»****W*********«***»**************** 

C GENERALIZED CALLING PROGRAM FOR BAND(J) TO SOLVE DIFFERENTIAL 
C EQUATIONS TAKING PARTIAL DERIVATIVES NUMERICALLY 

c 

C CALLED BY: MAIN CALLING PROGRAM 
C 

£*•+*«**«***» ************************************************* ********** 

C 

C SUBROUTINES CALLED: 

C WRTOUT (FOR DATA OUTPUT) 

C BAND (TO SOLVE BANDED TRIDIAGONAL COEFFICIENT MATRIX) 

C FUNCT (TO OBTAIN VALUE FOR FUNCTION FOR A GIVEN VALUE 

C FOR A VARIABLE) 

C 

£•»*****»**•**•****••*»•*********•**********•****«•«*******»+*******+*** 

c 

C LIST OF IMPORTANT VARIABLES: 

C 

C A A coefficient described in Newman* Appendix C 

C AA fust, AA is F0VORKC*CU). Later AA is the 

C value of the derivative df/dc used in Newton's 

C method 

C B B coefficient described in Newman, Appendix C 

C C variables to be solved for 

C CD multiplication factor used in obtaining 

C numerical derivatives 

C COLD value of C from previous iteration 

C CU 2.0 - CD 

C D D coefficient described in Newman, Appendix C 

C ERR convergence criterion 

C F value of function f(C), calculated in FUNCT 

C G residual of f(C) calculated with updated C value 

C I index used for equaiion number 

C ITCNT index for iteration number 

C ITPRT flag used for determining whether intermediate 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

£***« 


calculations are output; for H P RT=0, only 
converged results are output; for 
ITPRT=1 Jesuits of each iteration are primed. 

J index for node number 
K index for equation number 
M index used in working through nodes used to 
calculate numerical derivatives 
MM used to determine starting node (in relation to 
J) for estimation of numerical derivatives 
N number of equations (no. of variables) 

NJ number of node points 

SAVEC saved value of C 

SUM intermediate value used in calculating G 

TINIER criterion used to avoid working with small numbers 

TINY criterion used to avoid working with small numbers 

TNIEST criterion used to avoid working with small numbers 

WORKC saved value of C; modified when C less than Tinier 
X X value described in Newman, Appendix C 

Y Y value described in Newman, Appendix C 

„,»*****»**»*»»»*»*•, »*»•*»•**••••**•*••*•*•••**** 


c 

c 

c 

c 

c 

c 

c 


DIMENSIONS HAVE BEEN SET FOR 6 EQUATIONS AND 101 NODE POINTS; IF 
rr IS DESIRABLE TO INCREASE THE NUMBER OF EQUATIONS, CHANGE THE 6 
IN THE DIMENSIONS TO WHATEVER NUMBER YOU WANT. AND CHANGE THE SECOND 
DIMENSION OF D TO 2N+1. WHERE N IS THE NUMBER OF EQUATIONS. IF MORE 
NODE POINTS ARE DESIRED, CHANGE THE 101 IN THE DIMENSION STATEMENTS TO 
WHATEVER YOOippp 
REAL*8 C1(14,201).P1(14,201) 

COMMON/OLD/ AA(14)^UM(14),COLD(14J01) 

COMMON/BND/A(14,13)3(14.13),C(14^01)J)(14,29)JC(14,I3), 

.Y(14.13).G(14)^IJTPRTJTCNT.F(14).P(14.201) 

COMMON/IND 1 /END(4) 

DATA TINY.TINIER.TNIEST .ERR/1 .0D- 10,1 .0D- 15 , 1 .0D-20, 1 .OD-6/ 

DATA CU,CD/1.0001„9999/ 


C ITCNT INITI ALIZED HERE, AND INITIAL VALUES FOR VARIABLES PRINTED OUT 
C IFITPRT=1. 

C 

ITPRT=0 

itcnt=o 

NJ=NJ1 

N=N1 

IF (TTPRT.GT.O) CALL WRTOUT2 
DO 5 11=1 J41+1 
DO 5 12=1 J4J1 

cau2>=ciau2) 

pau2>=piau2) 

5 CONTINUE 
C 

C LOOP BEGUN FOR ITERATIONS 
C 

DO 75 ITCNT=U0 


C 

C COLD ARRAY SET UP 
C 

DO 10K=1,N 
DO10J=LNJ 
COLD(KJ>=C(K,J) 

10 CONTINUE 

Q 

C LOOP BEGUN TO MARCH THROUGH EACH NODE POINT. SUBSEQUENT CALCULATIONS 
C PERFORMED AT EACH NODE POINT. G VALUES ALSO SET AT ~F(I). 

C 

DO 60 )=1,NJ 
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CALL FUNCTl(J) 

D015I-1.N 

SUMa>=0.0 

Gav-Fa) 

15 CONTINUE 
C 

C THIS IS THE PLACE THE DERIVATIVES ARE CALCULATED. MM IS SET 
C TO INDICATE THE INTERVAL WHERE THE DERIVATIVES ARE TO BE CALCULATED 
C (IN RELATION TO J). 

C 

IF (LEQ.l)THEN 
MM-0 

ELSE IF (J.LT.NJ) THEN 
MM-1 
ELSE 
MM=-2 
END IF 

DO50M-MMMM+2 

C 

C ORIGINAL VALUES OF C STORED IN S AVEC AND WORKC 
C 

DOSOK=1.N 

SAVEC-COU+M) 

WORKC=SAVEC 

C 

C DERIVATIVES CALCULATED FOR SMALL VALUES OF C (LESS THAN TINY) 

C 

IF <ABS(WORKO.LT.TTNY) THEN 
IF(ABS(WORKC).LT.TINIER) WORKC=SIGN(TINIER.WORKC) 
C(KJ+MK1.2*WORKC 
CALL FUNCTKJ) 

DO 20 I=1.N 
AA(I)*-F(I) 

20 CONTINUE 

C(KJ+M)=l.l*WORKC 
CALL FUNCTKJ) 

DO 25 1=1^ 

AA(I)=AA(IM.0*F(I) 

25 CONTINUE 

C(KJ+M)=WORKC 
CALL FUNCTKJ) 

DO 30 1=1 JV 

AA(D=(AA(D-3.0*F(I))/(0.2*WORKC) 

30 CONTINUE 

C 

C DERIVATIVES CALCULATED FOR LARGER VALUES OF C (GREATER THAN TINY) 

C 

ELSE 

C(IU+M)=WORKC*CU 
CALL FUNCTKJ) 

DO 35 1*1 .N 
AA(I)=F(I) 

35 CONTINUE 

C(KJ+M)=WORKC*CD 
CALL FUNCTKJ) 

DO 40 1=1 .N 

AA(IMAA(D-F(DV((CU-CD)*WORKC) 

40 CONTINUE 

ENDIF 

C(KJ+M)=SAVEC 

C 

C VALUES FOR A.B.D.X AND Y GIVEN. SUM IS ALSO INCREMENTED 
C 

DO 45 1=1, N 
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SUMOVSUMd H-AA(I)*C(K J+M) 

IF (M.EQ.-2) Y(LK)=AA(I) 

IF (M.EQ.-l) A(LK)=AA(I) 

IF (M.EQ.O) B(I,K)=AA(I) 

IF (M.EQ.l ) D(1,K)=AA(I) 

IF (M.EQ.2) X(LK)=AA(I) 

45 CONTINUE 

50 CONTINUE 

DO 55 I=1N 
g(d=g(d+sum(I) 

55 CONTINUE 

C 

C BAND CALLED TO SOLVE THE BLOCK TRIDIAGONAL MATRIX 
C 

CALL BAND2(J) 

60 CONTINUE 
C 

C CONVERGENCE CRITERION CHECKED. IF ANY VALUE OF RELATIVE CONVERGENCE 
C FOR ANY VARIABLE IS GREATER THAN THE CONVERGENCE CRITERION, A NEW 
C ITERATION IS BEGUN 
C 

DO 65 K=LN 
DO 65 J=1,NJ 

IF(DABS(C(K,J)).GT.TNIEST) THEN 
IF(DABS((C(KJ)-COLD(K.J))/C(K.J)).GTERR) GO TO 70 
ENDIF 

65 CONTINUE 
GO TO 80 

70 IFOTPRT .GT. 0) CALL WRTOUT2 
75 CONTINUE 
80 CONTINUE 
DO 95 11=1N1 
DO 95 12=1NJ1 
C1(1U2>=C(IU2) 

95 CONTINUE 
RETURN 
END 

SUBROUTINE WRTOUT2 
IMPLICIT REAL*8(A-H.O-Z) 

COMMON/BND/A(14.13).B(14.13).C(14,201).D(14.29).X(14.13), 

. Y( 1 4. 13),G( 14)NNJJTPRTJTCNT.F( 14) 

IF (ITCNTNE.0) WRITE C.99)ITCNT 
WRITE (MOO) 

DO 1 K=1NL2 

WRITE(M01)K,(C(I,K),1=1.N) 

1 CONTINUE 

99 FORMATC ITCNT=‘ J2) 

100 FORMATC J Cl C2 C3 

C4 C5 C6 '/) 

101 FORMAT(lX.I3,6(lPE16.8)) 

RETURN 

END 

C BLOCK TRIDIAGONAL MATRIX SUBROUTINE 
SUBROUTINE BAND2(J) 

IMPUCIT REAL*8(A-H,0-Z) 

DIMENSION E(14,14,201) 

COMMON/B ND/A(14, 13)3(14, 13), C(14^01),D(14,29)^(14, 13), Y(14.13), 

.GO 4)N.N;JTPRTJTCNT,F(14) 

101 FORMATC0DETERM=0 AT J='J4) 

IF (J.EQ.l)THEN 
N?1=N+1 
DO 2 I=1,N 
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u u 


D(L2*N+D=G(I) 

DO 2 L=1.N 
DOX+NVXO.L) 

2 CONTINUE 

CALL MATINV2(N.2*N+1 .DETERM) 
IF(DETERM.EQ.O) WRITE (2,101) J 
DO 5 K=l>f 

E(ILNPU)»D(IL2*N+1) 

DO 5 L*1.N 
E(KX.1V-D(K.L) 

X(KX>--D0LL+N) 

5 CONTINUE 
RETURN 

ELSE IF(J.EQ.2)THEN 
DO 7 1«1JN 
D07K-1.N 
D07L-1.N 

D(LK>«D(LK>vA(LL)*X(LJC) 

7 CONTINUE 
ELSE IF(J.EQ.NJ) THEN 
DO10M.N 
DO10U1.N 

G(IXJ(D- Y (LL)*E(UNP 1J-2) 

DO 10 M=1.N 

A(LL)=A(IX>+Y(LM)*E(MLJ-2) 

10 CONTINUE 
ENDIF 
DO 12 1*1 .N 
D(LNP1)*-G(I) 

DO 12L=1,N 

D(I.NP1 )=D(LNP1 >*-A(LL)*E(UNPlJ-l ) 

DO 12 K=1,N 

B(LK)*B(LKHA(LL)*E(LJCJ-1) 

12 CONTINUE 

CALL MATINV2(NJVP1 JJETERM) 
IF(DETERM.EQ.O) WRTTE(2.101) J 
DO 15 K*1,N 
DO 15 M=1.NP1 
EOLMJ)=-D(K.M) 

15 CONTINUE 
rF(J.EQNJ)THEN 
DO 17 K=1,N 
C(KJ)=E(ILNP1.J) 

17 CONTINUE 

DO 18 M*NJ-1,1.-1 
DO 18 K=1.N 
C(ILM)-E(1LNP1J4) 

DO 18 L*U4 

C(01)-C(ILM>+EaLUM)*C(UM+l) 

18 CONTINUE 
DO 19L=LN 

DO 19 K=1 Ji 

C(IU)*C(IUHX(KX)*C(L3) 

19 CONTINUE 
ENDIF 
RETURN 
END 

MATRIX INVERSION SUBROUTINE 
SUBROUTINE MATTNV2(N,M,DETERM) 

IMPUCTT REAL*8(A-H,0-Z) 

DIMENSION ID(14) 

COMMON/BND/A(14,13).B(14.13),C(14.201).D(14.29) 

DETERM=1.0 


G-34 



DO 1 I=l-N 

I ID(I)=0 

DO 18 NN=lvN 
BMAX=0.0 
DO 6I=1,N 
IF(ID(I).EQ.O)THEN 
DO 5 J=1.N 
IF(ID(J)EQ.0)THEN 
IF(DABS(B(I,J)).GT.BMAX) THEN 
BMAX=DABS(B(U)) 

IROW=I 

JCOL-J 

ENDIF 

ENDIF 

5 CONTINUE 
ENDIF 

6 CONTINUE 
IF(BMAX.EQ.O.O)THEN 

DETERM =0.0 
RETURN 
ENDIF 
ID(JCOL)=l 

IF(JCOL_NEJROW) THEN 

9 DO 10J=1N 

SAVE=B(IROWJ) 

B(IROWJ)=BaCOLJ) 

B(JCOLJ)=SAVE 

10 CONTINUE 
DO 11 K=1.M 

SAVE=D(IROW,K) 

D(IROW.K>=D(JCOL,K) 

D(JCOL*K)=SAVE 

II CONTINUE 
ENDIF 

FF = 1 ,0/B( JCOLJCOL) 

DO 13 J=1.N 

13 B(JCOL,J)=B(JCOLJ)*FF 
DO 14 K=1.M 

14 D(JCOUK)=D(JCOUC)*FF 
DO 18 1=1.N 

IF(I.NEJCOL)THEN 

15 FF = BOJCOL) 

DO 16 J=1,N 

16 B(U) = B(U) -FF*B(JCOLJ) 

DO 17 K=1.M 

17 D(LK) = D(LK) -FP*D(JCOLJC) 
ENDIF 

18 CONTINUE 
RETURN 
END 







